
CPC • PCW JOYCE 


Basic-Kurs: Weg mit dem GOTO 
Vier C-Compiler im Test 

Für Assemblerfreunde: RSX-Befehle »selbstgestrickt« 
Register im Griff: Inline-Hilfe für Turbo Pascal 




Große RSX-Bibliothek 

- Alles, was Ihrem BASIC immer schon gefehlt hat 

- 35 neue Befehle 

- Pulldown-Menüs, RAM-Disk, Interruptverwaltung und, und, und 


Binärdateien verschlüsseln 
Sortier-Algorithmen 
Widerstands-Kombinationen ermitteln 
Grafik-Konvertierung unter CP/M 


- Grafiksystem im Eigenbau 

- Neue LocoScript-Version 

- Top-Software: Programmiertes Lexikon 
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Unabhängig von der Anzahl der bestellten Programme berechnen wir tür das Inland DM 4.- 
bzw. für das Ausland DM 6 - Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag • Postfach 250 • 3440 Eschwege 


Bjk*? 

/ /Osten-and 
Medienverli* 


3"-Disketten-Paket nur 
Cassetten-Paket nur 


49 - 

29 - 


In jedem Paket finden Sie: 

1 rj Disketten oder Cassetten mit 
■ U Top-Programmen und Spitzen-Spielen 

+ 2 DATA BECKER-Bücher 


Sofort bestellen! Nur solange Vorrat reicht. 


Uberraschungspaket 

für CPC 

Programme, Spiele, 

Bücher zum 
Wahnsinnspreis 












Editorial 



Liebe Leserinnen 
und Leser, 


was würden Sie denken, wenn Ihnen an der nächsten Kreuzung plötzlich ein lebendiger Dinosaurier 
über den Weg laufen und Sie zu allem Überfluß auch noch freundlich grüßen würde? So ähnlich dürfte 
es manchem EDV-Kundigen unserer Tage gehen, wenn man ihn mit unseren Programmen in 
Locomotive- oder Mallard-BASIC konfrontieren würde. 

Nun sind die smarten Yuppies der neueren PC-Generation, die so gern mit Megahertz und Megabytes 
um sich weifen (weiten, daß "Mega“ einer der ganz großen Mode-Mädchennamen dieses Jahrzehnts 
wird ?), ohnehin nicht allzugut auf das “Herumfummeln mit Programmcode" zu sprechen. Und wenn es 
denn schon Programmierung sein muß, dann wenigstens gleich ein Compiler-System mit allen Schika¬ 
nen: konfigurierbare Oberfläche, am besten mit Icons und Fensterchen, Sourcecode-Debugger und 
Laufzeit-Optimierer integriert, dazu viele Fertig-Bibliotheken. Das Ganze sollte nach Möglichkeit mo¬ 
dular oder besser noch objektorientiert arbeiten. 

Und da kommt so ein respektloser CPC-Heini daher, schaltet sein eigentlich längst ausgestorbenes 
Rechner-Fossil ein und tippt in den völlig unzumutbaren Editor des eingebauten Basic-Interpreters ganz, 
mühelos lauffähige Programme ein! Und, was das Härteste ist: Es scheint ihm auch noch Spaß zu ma¬ 
chen. .. 

Nichts gegen Profi-Systeme, und auch nichts gegen kommerzielle Software-Entwicklung mit Fertig-Bau- 
steinen. Alles hat seinen Platz — und wer heute für den PC-Markt Programme entwickelt, hat ein har¬ 
tes Brot. Aber: Wenn ich etwas ausprobieren oder irgendeine Bierlaune auf dem Computer umsetzen 
will, pfeife ich auf Performance und Stand der Technik und greife viel lieber zu meinem 8-Bit-Rechner 
mit seinem herrlich unmodernen eingebauten BASIC. 

Wenn auch Sie sich nicht schämen, zu den lächelnden Dinosauriern zu gehören, sind Sie in diesem Heft 
goldrichtig: Da zieht sich das Stichwort “BASIC-Programmierung “ wie ein roter Faden hindurch. Un¬ 
ser BASIC-Kurs verpaßt Ihnen Tips, wie Sie Struktur und Wartungsfreundlichkeit in Ihre Programme 
bekommen. Die große RSX-Bibliothek zum Abtippen verhilß Ihrem CPC-BASIC zu all den Befehlen, 
die Sie sich schon immer gewünscht haben. 

Unsere kleinen Rechner haben immer noch ihr Recht. Sie erhalten uns den Spaß am “einfachen Compu¬ 
tern“ ohne Netz und doppelten Boden. Wenn es sie wirklich eines Tages nicht mehr geben sollte, wird 
die Computerwelt ein ganzes Stück ärmer sein. 

Das meint jedenfalls Ihr 



Peter Schmitz, Chefredakteur 
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INHALT 


BERICHT 


"Englisches Wetter" für die CPCs 19 

- Die "Business Computing 91" in London 
und Amstrads neue Heimcomputer- 
Strategie 

Was macht der Rest der Welt? 112 

- Eindrücke von der "Systems" in München 

CPC-PROGRAMME: 

20 RSX-Professional 

- Die große Befehlsbibliothek für alle CPCs: 
Speicher und Bildschirm gekonnt 
manipuliert 

30 Elektronikers Freund 

- Widerstände verwalten, Farbcodes 
entschlüsseln, Kombinationen optimieren: 
die Alltagshilfe für den Bastler 

34 Frisch kopiert und editiert... 

- Zwei nützliche Bonusprogramme auf der 
neuen DATABOX 

CP/M: 


Pascal-Kolleg: Schöne Schleifchen 35 

- Schleifenkonstruktionen in Turbo Pascal 
und Basic 

Alles in Ordnung? 36 

- Sortieralgorithmen als Kraftfutter für Ihre 
selbstgeschriebene Datenbank 

Viermal C 40 

- Vier Compiler im Test: Small-C in kommer¬ 
zieller und PD-Version, außerdem Arnor-C 
und Hisoft-C 

Inline für Z80 44 

- Assemblerprogramme in Turbo-Pascal- 
Code einbinden 


Während man in 
Deutschland die 8- 
Bit-Computersysteme 
totschweigt, sah die 
Lage in England bis¬ 
lang noch besser aus. 
In London wurde jetzt 
von Amstrad eher 
lustlos der neue PCW 
präsentiert - wie 
sind die Aussichten 
für die 8-Bit-Freunde? 

S. 19 


Eine der größten 
Stärken des im CPC 
eingebauten "Loco- 
motive BASIC" ist 
seine Offenheit ge¬ 
genüber Befehlser¬ 
weiterungen. Unsere 
große Bibliothek 
"RSX-Professional" 
bringt Pulldown- 
Menüs, RAM-Disk- 
Funktionen, Speicher¬ 
manipulation und 
noch viel mehr per 
BAS/C-Befehl auf Ih¬ 
ren Rechner 

S.20 




SOFTWARE-REVIEW: 

10 Heißer Stoff für kalte Nächte 

- Passend zur Jahreszeit: abendfüllende 
Computerspiele für die CPCs 

17 Neues aus Frankreich 

- Ein Spiele-Hersteller aus dem Land der 
Gallier überraschte uns mit einigen 
brandheißen Ideen 

KNOW-HOW: 


Weg mit dem GOTO 72 

- Basic-Kurs: So bringen Sie Struktur in Ihre 
Programme 

Schwertgeschärfte Ohren 76 

- Der Weg zum eigenen Rollenspiel-System: 

Texteingaben 

Binärdateien trickreich verschlüsselt 80 

- Programme schützen mit der "Alkatrax"- 
Codierung 

Assembler-Ecke: Gewitzt und fix mit RSX 83 


- Wie man dem CPC-BASIC mit einer simplen 
Maschinenroutine selbstgebastelte Befehle 
unterjubelt 


Ob Sie sich wie unse¬ 
re "Kriegerin"im Bild 
aufmachen, um Mon¬ 
ster und Bösewichte 
mit dem Schwert in 
der eigenen Hand zu 
bekämpfen - oder 
ob Sie sich vor Ihren 
CPC setzen, um pro¬ 
grammierte Heldin¬ 
nen und Helden in Ih¬ 
rem ersten selbstge¬ 
schriebenen Rollen- 
spiel zum Leben zu 
erwecken, das müs¬ 
sen wir wohl Ihnen 
überlassen. Auf jeden 
Fall finden Sie in der 
zweiten Folge unse¬ 
res Rollenspiel-Kur¬ 
ses jede Menge Ma¬ 
terial für "Abenteuer 
satt". Diesmal geht es 
um die Analyse von 
Texteingaben 

S. 76 
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"Widerstand ist 
zwecklos" - diesen 
Satz könnte wohl 
kein Elektronik-Bast¬ 
ler unterschreiben. 

Ein ordentlicher Be¬ 
stand an Wider¬ 
standswerten ist der 
Stolz jedes Lötkolben¬ 
schwingers. "Elektro¬ 
nikers Freund" ver¬ 
waltet den Bestand 
und errechnet für 
fehlende Werte die 
günstigsten Aus- 
weich-Kombina- 
tionen. Ä 

S. 30 


Service 


AMS-Line 47 

- Der "heiße Draht" zu den Spezialisten 

PCW: 

90 Im Herzen des Joyce: Wie geht's dir, 

Rechner? 

- Den Status-Meldungen auf den Grund 
gegangen 

96 Ein Hauch von Lexus v 

- Das programmierte Lexikon in der 
ultimativen Komfort-Version 


102 Der PCW als Springinsfeld 

- "Bounce" lädt Sie zu einem flotten 
Spielchen ein 



Möchten Sie Ihre Programme vor den neugierigen Disassemblern bös¬ 
williger Mitmenschen schützen? Ein wirkungsvoller Kopierschutz setzt 
voraus, daß ein entsprechendes Disketten-Startprogramm sich in punc¬ 
to Spurzugriff nicht in die Karten schauen läßt. Mit dem "Alkatrax"- Ver¬ 
fahren stellen wir Ihnen eine besonders ausgefuchste Methode zur Ver¬ 
schlüsselung von Binärdateien vor 


107 Keine Angst vor Plotter und Vektoren! 

- Ein komplettes Grafiksystem zum Abtippen, 
flexibel und leistungsfähig 

114 Für Sie gespielt 

- Die Gesellschaftsspiel-Klassiker "Trivial 
Pursuit" und "Scrabble" auf dem PCW 

116 LocoScript, zum 2.3ten 

- Ein Blick auf die neue Version der 
Standard-T extverarbeitung 


TIPS & TRICKS: 
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- Zahlenraten 
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- Schiffe versenken 

- Mini-Vokabelpauker 

- Bildschirmwechsel 

Gamer's Message 51 

- Die "Erste Hilfe" für den Spielefreund 

Der Grafik-Schieber 70 

- "Gigacad"-Grafikkonvertierung unter CP/M 


RUBRIKEN: 


Gerade bei anspruchs¬ 
volleren Spielpro¬ 
grammen passiert es 
auch demausgeschla- 
fensten Computer¬ 
freund, daß er irgend¬ 
wann nicht mehr 
weiter weiß. Für Spie¬ 
letips und Lösungen 
gibt es bei uns die 
"Gamer's Message"- 
eine Rubrik zum Mit¬ 
machen! C Cf 
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Aktuell 


Prowort 5.09 


Spiele-PC von Amstrad 


Die englische Firma Arnor, die 
bereits für den CPC als auch fin¬ 
den PCW das Textverarbei¬ 
tungsprogramm Prowort ent¬ 
wickelte, hat nun die neueste 
Version für den PC fertigge- 
stellt. 

Dieses voll in Deutsch gehaltene 
Programm bietet unter anderem 
ein Lexikon mit 150.000 Wör¬ 
tern, eine automatische Datensi¬ 
cherung, Fuß- und Endnoten¬ 
verwaltung sowie eine umfang¬ 
reiche Programmiersprache für 
die Serienbrieferstellung. 

Weiterhin interessant sind Kon¬ 
vertierungsoptionen, die es 
möglich machen, die Texte, wel¬ 
che auf anderen Rechnern mit 
Prowort verfaßt wurden, in das 
MS-DOS-Format zu übertra¬ 
gen. Die ersten Erfahrungen in 


der Redaktion waren bei der Ar¬ 
beit mit Prowort sehr positiv. 
Gerade für Vielschreiber sollte 
auch die Rechtschreibprüfung 
interessant sein, die durch un¬ 
zählige Funktionen sicher an je¬ 
den Geschmack anpaßbar ist. 
Hier sei zum Beispiel die On- 
Line-Prüfung genannt, die di¬ 
rekt beim Eingeben von unbe¬ 
kannten Wörtern in den Text 
durch einen kurzen Piepston 
aufmerksam macht. Nun kann 
man nachschauen und, wenn 
das Wort in Ordnung ist, einfach 
weiterschreiben. Man wird also 
beim Verbissen eines Doku¬ 
ments nicht durch unnötige 
Bildschirmwarnungen, die 
eventuell sogar noch bestätigt 
werden müssen, gestört. 

Info: Prowort Service, Postfach 1316, 

8045 Ismaning, Td. 089/966270 



Neuer Druckertreiber 
für LocoScript 


Für den Standard-Matrix- 
drucker des PCW 8.xxx gibt es 
jetzt - zusätzlich zu den übri¬ 
gen Hervorhebungsmögl ichkei- 
ten wie Fettdruck, Unterstrei¬ 
chen, Breitschrift und Kursiv¬ 
druck — unter LocoScript 2.28 
sowie 2.30 die Möglichkeit, alle 
Zeichen auch doppelt hoch aus¬ 
zudrucken. 

Möglich wird dies durch einen 
Ersatztreiber, der statt der Ori¬ 
ginal MATRIX.PR1 auf die Lo- 
coSeript-Startdiskctte kopiert 
wird. Der neue Treiber ist zum 
alten in allen NLQ-Druckeigen- 


schaften identisch. Dies bedeu¬ 
tet, daß alle Texte für den einen 
Druckertreiber auch mit dem 
anderen ausgedruckt werden 
können. Auch Zusatzprodukte 
wie verschiedene Fonts werden 
wie gewohnt verwendet, und der 
Treiber ist kompatibel zum au¬ 
tomatischen Einzelblatteinzug 
(vertrieben von JPS Bernhard 
Graßhoff). 


Preis: zirka 78 DM 
Bezugsquelle: Reiner Scitz, Software - 
Erstellung - Pflege - Schulung, 
Schtmgauer Sir. 5, 8500 Nürnberg 


ln England stellte die Firma 
Amstrad jetzt das PC5286 Ga¬ 
mes Pack vor. Hierbei handelt es 
sich um einen 286er PC mit 16 
MHz und VGA-Grafik, die bei 
einer maximalen Auflösung von 
800600 Punkten ganze 256 Far¬ 
ben darstellen kann. Weiterhin 
sind eine 40-MByte-Festplatte 
sowie ein 1,4-MByte-Laufwcrk 
vorhanden. Im System integriert 
sind ebenfalls eine Ad Lib-kom- 
patible Soundkarte mit zwei 


Lautsprecherboxen, ein AM- 
STRAD-Joystick sowie eine 
PS/2-Mouse. 

Damit man auch gleich ein 
Spielchen wagen kann, finden 
sich noch die Spiele Links, F-15 
Strike Eagle II sowie Price of 
Persia. 

Ob dieses Gerät auch in deut¬ 
schen Landen vertrieben wird, 
stand zum Redaktionsschluß 
noch nicht fest. 


DISCOLOGY 6.0 


Das aus der französischen Soft- 
wareschmiedc Meridian stam¬ 
mende Disketten- und Dateiko¬ 
pierprogramm Discology 6.0 ist 
nun auch in französisch in 
Deutschland erhältlich. Damit 
der Anwender sich nicht durch 
die französischen Menüpunke 
quälen muß, erfolgt die Auslie¬ 
ferung des Programms mit deut¬ 


schem Handbuch. Der Preis be¬ 
trägt 99.90 DM für die Diskette. 
25,- DM für ein Update von der 
Version 5.1 sowie 35.- DM für 
das Update von einer älteren 
Version. 


Bezugsquelle: Mli-Vcrsantt , 

Mike Beb re,ul. Postfach 50 II 32. 
50(X) Köln 50 


Das erste Stromautomobil 


Wer meint, Tüftler und liebens¬ 
werte Gehirn-Akrobaten gäbe es 
erst seit der Einführung der 
Heimcomputer, muß sich beim 
Besuch eines jeden Technik- 
Museums immer wieder eines 
Besseren belehren lassen. 

Ein Beispiel: Elektroantrieb 
wird von heutigen Autobauern 
als die Herausforderung der 
neunziger Jahre beschrieben. 
Eric Rainsford (75) kann da nur 
mit dem Kopf schütteln: Sein 
abgebildeter “HAWA“ wurde 


von der Hannomag in Hannover 
in den Jahren 1921 bis 1924 ge¬ 
baut. Dieser kleine Zweisitzer 
zeigt, daß auch lange vor Erfin¬ 
dung des “künstlichen Dumm¬ 
kopfs“ Computer an ungewöhn¬ 
lichen Ideen rund um fließenden 
Strom und fleißige Elektronen 
gefeilt wurde. 

Das Fahrzeug wurde jetzt anläß¬ 
lich der Jubiläumsfeier zum 
750jährigen Bestehen der Stadt 
Hannover in einer Verkchrsaus- 
stellung gezeigt. 
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Aktuell 



COM’92 


Vom 5.5 bis zum 9.5.1992 wird 
in Erfurt zum zweiten Mal die 
COM’92 statt finden. 

Die Messe umfaßt rund 20.000 
qm Ausstellungsfläche, wo si¬ 
cherlich auch dieses Jahr wieder 
jede Menge Interessantes zu le¬ 
sen beziehungsweise auch zu 
hören sein wird. Im letzten Jahr 


waren zum Beispiel auch für 
CPC- und PCW-Besitzer einige 
interessante Firmen anwesend. 
Wer sich mehr in Richtung Ba¬ 
steleien ein Bild von der Messe 
machen wollte, konnte zum Bei¬ 
spiel den ROBOTRON-Stand 
besuchen. Also nichts wie hin. 


LocoScript- “Bundles“ 


Computer 


Im Cadmos Verlag ist jetzt wie¬ 
der ein Buch mit neuen Compu¬ 
tercomics erschienen. Nachdem 
Titel wie "LIEBE ein Buch mit 
sieben Siegeln“ oder “DIE 
PARTY geht jetzt richtig los“ er¬ 
schienen sind, widmet Wolf¬ 
gang Willnat in COMPUTER 
seine ganze Aufmerksamkeit 
diesem Medium. Die 42 farbi¬ 
gen Illustrationen bringen si¬ 
cherlich jeden Computerbesit¬ 
zer zum Schmunzeln, aber auch 


zum Nachdenken. Freundli¬ 
cherweise wurde uns vom Cad- 
mos-Verlag die Genehmigung 
erteilt, eine der Grafiken in der 
CPC International abzu¬ 
drucken. damit Sie sich selber 
ein Bild von diesem wirklich ge¬ 
lungenen Sammelwerk machen 
können. Sollte Ihnen jetzt noch 
ein Weihnachtsgeschenk für 
Ihre Liebsten fehlen, können 
wir dieses Buch nur empfehlen. 




Neues Patent hilft Plastik 
sparen 


Nachdem die Preise für VOR- 
TEX-System-2000-Festplatten 
von der Firma Wiedmann, Is¬ 
maning. schon rapide herabge¬ 
setzt wurden, passiert jetzt auch 
ähnliches mit LocoScript. 

Die Textverarbeitung in der Ver¬ 
sion 2.30 kann in sogenannten 
Bundles bezogen werden. Loco¬ 
Script wird also in Verbindung 


mit einem der aus der Loco-Fa- 
milie stammenden Programme 
zusammen günstiger verkauft. 

Die Verbindung LocoScript mit 
LocoFile oder aber LocoMail 
kostet jetzt nur noch 256,50 DM 
(316,20 DM vorher). 

Bezugsquelle: Wiedmann Unterneltrnens- 
berutung und Handel, Korhiniansplatz 2, 
SfW.5 Ismaning 


Nach Aussagen der Firma Total 
Printstrument wiegt eine ge¬ 
wöhnliche Farbbandkassette für 
Drucker oder Schreibmaschine 
rund 150 Gramm. Erschreckend 
ist jedoch, daß sie ganze drei 
Gramm Farbe beinhaltet. Wird 
nun die verbrauchte Farbband¬ 
kassette gewechselt, landen un¬ 
gewollt ganze 147 Gramm an 
Plastik und Farbband auf dem 
Müll. In den meisten Fällen 
wäre es jedoch ohne Probleme 
möglich, das Farbband und die 
Kassette noch ein- oder mehr¬ 
mals zu benutzen. Was also 
fehlt, ist eine Möglichkeit, das 
Farbband wieder aufzufrischen. 
Hier gibt es nun zwei Möglich¬ 
keiten. Bisher war es bei man¬ 
chen Farbbändern möglich, die¬ 
se einzuschicken und gegen ent¬ 
sprechendes Bares aufgefrischt 


zurückzubekommen. Dies ist 
umständlich und setzt voraus, 
daß noch ein zweites Farbband 
vorhanden ist. 

Die Firma Total Prinstrument 
hat nun ein Patent angemeldet, 
das hier Abhilfe schaffen soll. 
So werden die Farbbänder von 
vorneherein mit einer Auffri¬ 
schungstechnik versehen. Ist 
nun die Farbe aufgebraucht, ent¬ 
nimmt man der Kassette ledig¬ 
lich einen kleinen Auffrischungs¬ 
tank und tauscht diesen gegen 
einen neuen aus. Die Plastikver¬ 
schwendung kann so wieder et¬ 
was verringert werden. 

Weitere Informationen: 

Total Prinstrument MFYLtd, 

Mt: I Chase 

Suite 7, City Garden Shopping Centre, HF. 
233 Electric Road, North Point 
Hong Kong 
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CPC 6128 


| Business-Programme CPC: 


CPC 6128 Plus 


Programmiersprachen CPC 


f| Spiele, Entspannung CPC: 


Adventures CPC (t - Text; g - Grafik) 


Grafik auf CPC: 


Schaltpläne für: 


Sensationelle Preissenkung 


Wir sind ihr starker 


ml GrOnmonitor GT65 
mH Farbmonitor CTM 644 .. 
CPC 6128 Konsole einzeln 
Grünmonitor GT 65. 


Star-Writer I (CPC3"). 9 

Textsystem mH, AdreßverwaHung. Grafik. 
DFÜ, Zeichen-editor 

Datei-Star (Cpc 3-).9 

Universelles Dateiverwaltungsprogramm 

Neuheit: Disktool.6 

3'Prog -Paket mH 9 Uu'-is (Format/Kopie) 


3" Laufwerk, Cartridge-Steckmodul 
128 KB Ram. 2 Joystickanschlüsse 
Monochrom (s/w) 899,— Farbe 1.199. 


Dart-Scanner {♦).249,- 

Videodigitizer (♦).348,- 

Turbo Pascal 3.0.225,- 

Adapter für CPC 6128 39.- 
Neue CPC-Spiele: 
Hollywood: Robocop, 
Ghostbusters, Batman, 

Indiana Jones..89,95 

Virtual Worfda: Driller, 

Total Ecllpse, Castle Master 


Arnor: 

ArnorC CPC6128 225, 

Prowort..198, 


Protext 3'.1 

MAXAM 3".I 

MAXAM II.2: 

Prospell dtsch.' 

STAR DIVISION. 

Star-Writer I.! 


Kassettensoftware: 

Easi-TopcalcKas.29,80 

Basic Lehrbuch Kass 29,80 
Taifun Basic Comp ...48,- 
Mini Office II Kas. 49,- 


HiSoft Pascal (37 Kas.) . 59,80 /39,80 
Assembler (37 Kas.). 59,80 /39.80 

(inkl. deutschem Handbuch) 


Futureworld 


Statistic-Star.98,- 

FibuStar Plus CPC ..298,- 

CPC-Knüller: 

ROMBOX CPC.118, 


Stud Poker 


Rick Dangeroua 2, 

Sim City.-. 

Sonderpreise. 

Bildschirmfilter 

für GT64-65, 

CTM 644-640. 


Manie Miner 


Poker/17»4.— 

Thorr 1+2+3. )e 

Spiele Sonderpreise: 


Sorcery Plus p->.: 

Spannendes Geschicklichkeitsspiel mit 
super Grafik. 

Cyrus II Chess (3‘) Superschach ...' 
Denksport auf Ihrem CPC 3D Darstellung 


MICA CPC 


Terminalstar 3" 
Mini Office II 3" 


Kassetten. 


Handbücher Deutsch 
für CPC: 

Mim Office II.29,80 

AMX-Maus CPC.29,80 

StopPress CPC.19,80 

dk tronics Erw.—19,80 

Protext .19,80 


Abdeckhauben: 

CPC Monitore.je 39,80 

DMP-Drucker.(e 29,80 

DDI/FDlA/ortex je 19,80 
CPC Konsolen ... |e 24,80 

Joyce MonHor.44,80 

Joyce Tastatur.24,80 

Joyce Drucker.24,80 

3"-Disketten: 

Maxell, Amsott (io su 59,- 

CF2DD (löst.) . 98,- 

Noname (tost.) 49,- 

Diskettenboxen: 

3”-3.5" /50.19,80 

3"'-3.57100.29,80 

5.257100 .29,80 

POSSO BOX 150 3" 59,- 

Schnittstellen: 


Flugsimulator 737 (r/Kas)38,— /28 


Van der Zalm. 

ADRESCOMP. 

DATENREM . 


Diamant von Rabenfels (g) 
Drachenland (t) 

Reise durch die Zeit (t) 

Sherlock Holmes (g. nur 3'Diskette) 
Auftrag In der Bronx (g) 

Insel der Smaragde (t) 
Pharaonengrab (t) 

38, 


MAXAM 


Supercalc 


6128 deutsch.68,- 

6128 englisch.48,- 

fürJemi 

AMX-Maus Joyce.19,80 

Mini Office Prof.29,80 

Public Domain Buch 29,80 

MasterScan ..19,80 

StopPress Joyce.19,80 

Desktop Publisher.... 29,80 
MICA.39,- 


je 3"-Diskette I Kassette 


inkl. Easiart 
AMX Maus 

mH Gra'iksoftware 

StopPress 

DTP Programm .... 

StopPress ♦ 


EASIART + Trackerball.198,- 

Zeichnen und Konstruieren mit dem Marconi 
Trackerba« und dem Graf kprogramm EASi ART 
Unschlagbar in Komoinailon mt StopPress II 

EASIART» Trackerball +StopPress .. 348,- 

EASIART Softw. u. Handb.78.- 

Maus Paket inkl. EASIART... 149,-- 


LocoScript2 


LocoFlle.59,- 

Publlc Domain: 

Riesen Auswahl an toller 
Software II (Liste anford.) 

1000 PD (3").ie 20,- 


RS 232 Joyce. 

Monitore 

GT 65. 

CTM 644_ 


CPC 464/664/6128 

CTM 644/640. 

GT 64/65 . 

DD1/FD1 . 

DMP 2xxx/3xxx .... 
Joyce 8256/8512 


Multiplan Microsoft CPC / Joyce (3”) 

Ja. Sie haben richtig gelesen, das bewahrte 
Tabellenkalkulationsprogramm gibt es auch 
lür Ihren Computer. Wenn Sie die zeit¬ 
raubende manuelle Verwaltung tabellarischer 
Aufstellungen von Hand satt haben. Ist 
Multiplan genau das Richtige für Sie. 

CPC 464-664 Besitzer benötigen eine 
64 KB Erweiterung CPC 99,-- 

Mit deutschem Hb. Joyce 148,-- 


dBase II für CPC / Joyce <3") 

Jeder PC Besitzer kennt dieses reiat onafo 
Datenbanksystem von ASHTON TATE. Diese 
Software eignel sich zur Lösung aller Anwen¬ 
dungsprobleme , wie Lager-, Adressverwalt- 
ung, Fakturierung Betriebsabrechnung etc. 

(bis zu 65536 Datensätze) Achtung! CPC 
464 -664 Besitzer benötigen eine 64 KB 
Erweiterung 

Mit deutschem Handbuch -J 48,— 


Profi Programme ausderpewe» 

Wir haben den Alleinvertrieb lür dBssell, 
Multiplan. Wordstar 3.0 und Microsoft 
Basic (CPC+Joyce) von Markts Technik 
übernommen I Sollten Sie also Interesse 
an einer durch und durch professionellen 
Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde 


Basic+Assembler cpc 6128 /Joyce 

KorTplettes Entwicklungspakei mit: Basic- 
Compiler5.4 Basic-!nterpreter4.51und 5.21, 
Macro-Assembler, Link Kinking Loader.Cref 
Cross-Referenc FacilHy und Llb Library 
Manager. 

Ein Muß für jeden ernsthaften Basic-und 
Assembler Programmierer II CPC 99,- 
Mit deutschem Handbuch Joyce 148,- 


MlcroPro für CPC/Joyce 

ProfHieren auch Sie vom Nutzen eines 
millionenfach bewährten Textverarbeitungs¬ 
programms und erledigen Sie alle Schreib¬ 
arbeiten auf eine schnelle und komfortable 
Art und Weise. 

464- 664 Besitzer benötigen eine 64 KB Er. 
Mit Serienbrieffunktion QQ 


dBase II + Wordstar + Multiplan zum 

sensationellen Paketpreis von 


(auch einzeln erhältlich) 


MICR SOFT 


mit MailMerge 

fextvcrartoeiUing 


Händleranfragen erwünscht. 

Wir suchen noch Kooperations¬ 
partner aus der ehemaligen DDR II 


Mit deutschem Handbuch 



..78,- 


148,- 

LAGDAT. 

.68,- 

TEXTKING. 

..78,- 


.48,- 


.58,- 


.98,- 


..78,- 

PROF IREM . 

138,- 

Grafik Knüller 

Maus Packet 

149,- 


j| Spielesammlungen - Ganz 

sturk 1 | 

Mindestens 3 Spiele auf einer 3‘-Diskette 

Super Games 1 (4 Spiele). 

30,- 

Super Games II (4 Spiele). 

30,- 

Super Games III (3Spiele). 

... 30,- 

They sold a million (4 Spiele) 

30,- 

i GAME Paket alle 14 Spiele 

..100,- 




































































































































Kopierprogramme. 


AMSTRAD 3"-Laufwerke. 


Zweit-Laufwerke auseigener 
msm Produktion 


Zubehör 


BTX Modul für CPC 


DMP 3160 9 Nadeldruckef 




Multiface 2 


Datenübertragung CPM - DOS: 


Wir haben die Lizenz für Kotulla PD-Programme (CPC u. Joyce) 
mit deutschen Handbüchern übernommen MrnmmM 


Joyce PCW 8512: 

•3"-LW|130* 720 KB) 

• Drucker + Textsoftware 

• CPM-Plus und Basic 

-512KB 1398, 


Joyce PCW 8256: 

• 3'-Laufwerk (180 K8) 

• Drucker + Textsoftware 

• CPM-Plus und Basic 

•256KB 998,-- 


Mastercopy CPC (3-) ...65,- 

Es gib« so gut wie kein Programm, daß von 
Mastercopy nicht geknackt wird. Übersichtliche 
Menüsteuerung. (Disk auf Disk) 

Supercopy CPC/Joyee (3*)65,~ / 85,- 
Supercopy ist wie der Name 6chon sagt 
(Oisk auf Disk) 


Joyce-Knüller: 


Desktop Publisher.98, 

...+ AMX-Maus (+) ....298, 

MaslerScan (+) .298, 

MasterPaint.78, 

MasterScan/-Paint.338, 

Mini Office Profess.138, 

...Dtsch. Zeichensatz ...29, 

Tasword 8000.148, 

Turbo Pascal 3.0.22S, 

Turbo Toolbox.. 148, 

Pascal M+T.198. 

Prompt (Datei).69, 

Prompt Druck.39, 

Turbo Adress.98, 

Turbo Faktura.148, 

Headline.198, 

MICA CAD.98, 

Comac Litbox 4.0.148 

Comac Kasse Plus. 168 , 

Comac-Banktransfer ....59 

Vereinsverwaltung.198 

Schreiblehrgang.89 


Sporting Triangle.79, 


Tetris 


PCW-Adapter (♦) 
Sonderpreise. 
Bildschirmfilter .... 
Papierführung In 
versch. Farben- 


3,5" LW (CPC/Joyce»_ je 240,- 

Achtung: Lauft am CPC 464 nur mit Contr. 

5,25" LW (CPC / Joyce). je 320,- 

Achtung! LAutt am CPC 464 nur mit Contr 
Metafgehäuse (tnki.Kabel anschiußferug) 
Diskpara 3.5” / 5,25 " Formataoftwsre yg 


Drucker: 


Datenrekorder ♦ Kab 98.- DMP 3160 (9 N) 498, 

Druckerkabel 6128 38.- Star l C20 (9 N.).498, 

Druckerkabel 464/664 38,- NEC P 20 . 898. 

Monnorvedangerung NEC P 60 . 1598, 

...CPC 6128 29.80 StarLC24 10(24 N.) 698, 

...CPC464 . 24,50 r- Q . . 

Druckerveriangerung: ' 

für Joyce (2 Kabel) 58.- ^ LQ ll' 

Msrgin Melier S,ar ...-.19., 

Pepierf. Joyce _ 10 .- Star LC 24-10 . .24. 

Traktor NLO 401 ..„.58.- «-0 35JNL10/PCW24, 

Joyce (Carbon).39, 

Joysticks PCW 9 S 12 _19. 

Competmon pro.39.80 Star LC 10.19. 

Oulckshot II.19.80 Star LC 24-10.24, 


Umweltschutzpapler 
Zweckform 1000 81. .24.80 

Endlos 1000 Blatt.29.80 

weiß 

Etiketten 200 Stk ..... 16.- 

70 x 70. für 3' und 3.5" 
Daten Übertragung 
Dataphon 2400 b... 698.- 
Modem 2400 MNP5 398.- 
Modem 2400 Baud 348.- 
Ai e Modems sind ohne 
Postzulassung 
Software DFÜ.58.- 


der beste Drucker für den CPC. nur an diesen 
Drucker können Sie den Dari-Scanner 
anschließen, 

DMP 3160 ....498. 


mit Kabel . keine Software nötig.In Verbindung 
mit einem MP 2 auch am TV betreibbar. 
Anschluß mH DBT03 oder Modem. -i qo . 


Druckcrkabel CPC 464/664 6128 
Farbband DMP 2XXX / 3XXX. 


Handscanner für PCW 8/"" 
ProScan Software Installationsan. in deutsch 
mit englischem Handbuch. 798 


Farbband Star LC 10 


Farbband NLO 401 


Sagenhaftes Kopiermodul 


Vollständige Kopiereinrichtung für Kassetten 
und Disketten. 

Wird auf den Expansionsport Ihres CPC 
(464,646 und 6128) aufgesteckt. 

Wahlweise Kopieren von Kas. auf Disk, und 

umgekehrt. 178, 

Adapter für CPC 6128 (DM39,-) 


LoCOMail2 (Serlonbriel). 168, 

für LocoScripl2 mH engl. Handbuch. 


endlich auch für die MS PC DOS Welt 


Darauf haben alle gewartet, die auf einen 
DOS-Rechner ums teigen wollten. Sie können 
Ihre Datenbeatande v.PCW auf den PC über¬ 
nehmen. Im Lieferumfang enthalten: 

• Loco Script CQO - Loco Mail 

• Loco Spell Oyö,*“ - Loco File 

• englisches Handbuch 


MINI DOS JOYCE.50,- 

Mit Hilfe dieser Software können Sie auf Ihrem 
Joyce PCW MS-DOS-Dateien lesen, schreiben 
und formatieren Sw benötigen dazu ein 3,5‘- 
oder 5.25" Diskettenlaufwerk 


r — —— .. “ 

zurück an Absender 'Z*' 

i Interessiert an weiterem Info* 

' material ? Kostenlose Gesamt- 
j angebotslisten anfordern I 

:] O für CPC 6128 . 664, 464 
; j O Joyce / PCW Computer 
| j O Spie'e CPC / PCW 
] O Public Domaine 3' CPC/PCW 


Karl-Heinz Weeske 
Potsdamer Ring tt> 
D-7T50 Backnang 

m fsgpEtrKasseÖK ♦BLZ(60250020) 
74397. PostgiroStgf, 83326-707 


Preiswerte Programme für CPC und Joyce so macht Software Spaß I 


1 JRT-Paaeal ■ votsUndig« Pascal-Corrpl» * 11 8asc-Compler EBASiCIOrCPiM 

2 Z80-Aaaemb<er. Dsassembler. linker. Oeo.;cer 12 Turbo PascaJ-Programme Turbo-Inlner. Grafik 

3 KOnslicha intehgeru XUSP u EPROLOG ‘ ’3 Programme aus Oen Joyce programmieren 

4 C-Compler SmaikC • mit R.eßkommazahien * 14 Programme aus CPC-Daterve/waltu.ng •• 

5 FORTt+83 • Komtortaöer Forth Interpefer 15 Wordstar Toola Fußnoten. ndex. Spaltend:udi ’ 

6 UBiHe* Oatekompression. Kskmon. Datwett» 16 dBASEUterarurverwaJhing * 

7 Programme aus dem Großen CPG Arbeitsbuch ” >7 Cbwpreter SO Speiend C lernen * 

8 Adveowe Coiossal Ceve (Pg engl) * 18 MacroPaefVZSO Makroassembler Debugger, Lrker 

9 Disk Utlibee kopert geschützte Software ** 19 DFU-Piogramm MEX Datenübertragung * 

10 Biz Basic Umfangreiche Basc-E/welteamg •• 20 WS-Tuner 

• Auf CPC-464/664 nur mit SpeichererweHerung (min. 64 K) “ Nicht geeignet für Joyce 


Straße. Hausnummer: 


Teieton-Nr. Datum: 


Mein Computersystem; 


E Speichererweiterungen CPC: | 

64 KB . 

149,- 

| 128 KB nicht für 6128 . 

198,- 

s 256 KB. 

269,- 

320 KB nicht für 6128 ... 

349,- 

t 512 KB . 

419,- 

Joyce 256 KB(mit Einbauanieit.) 

128,- 



.398,- 

Ein Muß für jeden CPC 464 -Besitzer 


Controller (auch einzeln erhältlich) 

198.- 

FD1 (2.-Lautwerk CPC) 3" 

198,- 

• Achtung 1 Läuft am CPC 464 nur mit Contr. 

Kabel für FD1 nötig tür 6128/664 

48.- 

FD4 (2.-EinbauLaufw. Joyce) 3" 

398,- 


Amor: 



225.- 

C jetzt euch für den Joyce und 
CPC 6126 Mn Compi er Linker 

und Editor 


Textverarbeitung mit Recht- 
•chreibprüf. und Maiimerge 

PSOSPELL (dt.) .79.- 

MAXAM II.. 

239,- 

Locomotive: 


LocoScnpt . Spell 

248,- 

| STAR DIVISION 

Statistik-Star . 

-98,- 

Starmail. 

.99,- 


.99,- 

Maiing-System 

Star Base .. 

189,- 

198,- 





Kontenblatter Ftou ... 

.35,90 


.98.- 

1-1--—1 


]|| Locomotive Software i 

LocoScript2 (Textverarbeitung) 

148,- 

mit deutschem Handbuch 


LocoSpell2 (Rechtschrebung 

168,- 

In deutsch mH engl. Handbuch 


LocoFile (Datenbank) 

168,- 

| j für LocoScnpt2 mit deutschem Handbuch. 

j j Loco Font Set t oder 2 79,80 / 

68,40 | 


Joyce PCW 9512 1698,- 

Fleetstreet Edit. 

...148,- 

FISKUS 89/90. 

...139- 


...49.80 

Neue Joyce-Spiele: 

Anäs of Rome. 

.89,- 



Cyrus 3D Schach .. 

....49,80 



Tomahawk... 

.79,- 



Gnome Ranger. 

.79,- 


.79.- 

Schools Out . 

.79.- 

Ski Climb. 

.79,- 
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Heißer Stoff 
für kalte Nächte 

Für Weihnachten oder einfach so: Unsere 
Spiele-Reviews zeigen, wo’s lang geht! 

Damit nicht auch die Gesichter lang werden, wenn die Nächte länger 
werden, haben wir uns wieder die Neuerscheinungen auf dem Spiele-Markt 
angesehen. 


Angenehm aufgefallen sind dieses Mal 
die Anleitungen: Abgesehen von 
NORTH & SOUTH und BUILDER- 
LAND liegen allen Spielen deutsch¬ 
sprachige Anweisungen bei. 

Der Film BATMAN war trotz des rie¬ 
sigen Werberummels in Deutschland 
ein Flop. Trotzdem legt Oeean nun das 
gleichnamige Computerspiel vor. 

Wenn es Nacht wird 
in Gotham City ... 

Jack Napier war schon immer gemein 
und sadistisch. Doch seit seinem Unfall 
verkörpert er als Joker das Böse 
schlechthin. Um Gotham City zu ret¬ 
ten. muß schnell gehandelt werden. 
Bruce Wayne . ein eher schüchterner 
Milliardär, weiß dies. Deshalb streift 
er nach Einbruch der Dämmerung sein 
Kostüm über und verwandelt sich in 
Batman . Doch außer einigem techni¬ 
schen Schnickschnack benötigt er viel 


Glück und Geschicklichkeit, um ans 
Ziel zu kommen. 

Die fünf verschiedenen Levels geben 
fünf Situationen des Films wieder. Zu 
Beginn muß verhindert werden, daß 
Jack Napier eine Chemiefabrik über¬ 
fällt. Batman kann dies zwar vereiteln, 
doch leider verschuldet er dabei selbst 
den Unfall, durch den Jack Napier in 
Joker verwandelt wird. Hierbei handelt 
es sich um ein Plattformspiel, bei dem 
es über Leitern und vorbei an zahlrei¬ 
chen Gegnern geht. Eine Besonderheit 
ist jedoch das Batseil, mit dem die 
Spielfigur hin- und herschwingen und 
sich auf höher gelegene Plattformen 
hieven kann. 

Vick Vale , die hübsche Blondine, wur¬ 
de inzwischen von Batman aus den 
Klauen des Jokers befreit. Nun muß 
dieser — das ist der zweite Teil des 
Spiels - mit seinem Spezialautomobil 
entkommen. Erstaunlicherweise han¬ 
delt es sich in diesem Part nicht um ein 


Autorennen in der üblichen Perspekti¬ 
ve. Vielmehr sieht man die Straße von 
schräg oben, was ein völlig anderes 
Spielgefühl vermittelt. Auch daß man 
abbiegen muß - und dabei Seile und 
Enterhaken zur Hilfe nehmen kann — 
sel/.l ungewöhnliche Akzente. 

Nun hat Joker diverse Gegenstände mit 
einem Spezialgas vergiftet. Grund ge¬ 
nug, schnellstens herauszufinden, um 
welche Gegenstände es sich dabei han¬ 
delt. In diesem dritten Abschnitt muß 
gegen die Zeit geknobelt werden. 
Durch Ausprobieren aller Kombinatio¬ 
nen kommt man aber ziemlich schnell 
ans Ziel. 

Weiter geht’s wieder auf den Straßen. 
Joker hat die Bevölkerung mit Verspre¬ 
chen ins Freie gelockt. Doch was in 
seine zahlreichen Luftballons gefüllt 
wurde, ist keine Luft, sondern Giftgas. 
Um die Gefahr für die Bürger zu ban¬ 
nen. muß Batman mit seinem Flug¬ 
zeug, dem Batwing, die Halteseile der 
Ballons durchtrennen. Dabei muß er 
sich jedoch auch vor den Hubschrau¬ 
bern des Jokers in acht nehmen. Ähnlich 
wie der zweite Teil, aber die Ballons 
stellen eine neue Herausforderung dar. 
Schließlich flüchtet Joker in die Kathe¬ 
drale, wo es auf dem Dach zum großen 
Showdown zwischen ihm und Batman 
kommt. Wie zu Beginn muß sich Bat¬ 
man hier wieder mit seinem Batseil von 
Plattform zu Plattform schwingen, 
aber neue Gefahren sind hinzuge¬ 
kommen. 

Ein altes Rezept - verschiedene Sze¬ 
nen eines Films durch unterschiedliche 
Spieletypen darzustellen — wurde bei 
BATMAN sehr gekonnt angerichtet. 
Jede der einzelnen Sequenzen bietet ge¬ 
genüber anderen Programmen einige 
Eigenarten. Jeder Teil wurde mit ei¬ 
nem eigenen Musikstückchen bedacht. 
Die Grafik ist farbenfroh und abwechs¬ 
lungsreich, wenn auch teilweise etwas 
grob. Kein besonderes Wunderwerk ist 
das Scrolling, es stört aber auch nicht 
gerade. 

Spaß und Spannung 
hoch fünf 

Nun könnte man BATMAN beinahe 
uneingeschränkt empfehlen. Das heißt, 
wer auf die Disketten-Version zurück¬ 
greifen kann, bekommt für sein Geld 
ein wirklich gutes Spiel. Auf Cartridge 
sind jedoch keinerlei Änderungen fest¬ 
zustellen - mit Ausnahme der typi¬ 
schen Cartridge-Verpackung und der 
ebenso dafür typischen Anleitung. 
Cassetten- und Disketten-Benutzer 
müssen sich allerdings darauf einstel- 
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len, daß die Levels nachgeladen 
werden. 


BATMAN 

Hersteller: Ocean-Sofiware 
Steuerung: Joypatl, Joystick oder Tastatur 
Voraussetzung: für alle CPCs, GX 4000 
Preis: 98.00 DM (Cartridge) 

Bezugsquelle: EDV-Obermeier 
Bemerkung: Cartridge identisch mit der preisgünsti¬ 
geren Disketten-Version 
Bewertung: 

Grafik: 3 Sound: 2 

Präsentation: 2 Motivation: 2 

Endnote: 3 


Straßensperren sind kein Hindernis in 
CRAZY CARS II: Auf der Jagd nach 
Autoschiebern geht es durch vier Staa¬ 
ten der USA. Zu allem Unglück sind 
diese Autoschieber aber Polizisten, 
und so sind Sie ganz auf sich allein ge¬ 
stellt — und auf Ihren Ferrari F40. 

Allein gegen die Polizei! 

Tatsächlich liegt CRAZY CARS II das 
Straßennetz der Vereinigten Staaten zu¬ 
grunde. Start- und Zielorte werden 
vom Programm angczcigt. Anhand der 
jederzeit abrufbaren Straßenkarte muß 
sich der Spieler nun selbst orientieren. 
An Ausfahrten wird die Nummer der 
abzweigenden Straße angezeigt. 

Die Fahrt ist natürlich ein Kampf gegen 
die Zeit. Jede Explosion des Autos in¬ 
folge eines Zusammenpralls mit Sper¬ 
ren oder anderen Wagen kostet wert¬ 
volle Sekunden, bis der Ferrari wieder 
einsatzbereit ist. Wenn das nur in 
Wirklichkeit auch so einfach wäre! 

Übung macht den Meister 

Zu einem schnelleren Spielende kann 
es kommen, wenn nach einem Unfall 
die Polizei zur Stelle ist und Sie verhaf¬ 


tet. Dann geht es wieder ganz von vor¬ 
ne los! Anfangs stellt sich oft das Ge¬ 
fühl ein. den Hindernissen ausgeliefert 
zu sein und auch mit Geschicklichkeit 
nicht viel ausrichten zu können. 

Mit etwas Übung klappt cs aber doch. 
Dann dauern auch die Spiele recht lan¬ 
ge, weil die zurückz.ulegenden Distan¬ 
zen groß sind. 

Der 3D-Effekt beim Fahren ist gut ge¬ 
lungen. Hintergrundbilder und Rand¬ 
markierungen wechseln, wenn man in 
einen neuen Staat kommt. 

Während in Colorado die Straße von 
Bäumen gesäumt ist, finden sich in 
New Mexico Kakteen. Auch wird man 
für die Möglichkeit, die Musik zugun¬ 
sten von Sound-Effekten abzustellen, 
dankbar sein. Überraschend ist hier 
vor allem, wie gut das Näherkommen 
der Polizeifahrzeuge durch lauter wer¬ 
dende Sirenen angezeigt wird. Anzei¬ 
chen für die verbesserten Hardware- 
Eigenschaften kann man jedoch lange 
suchen. 

Bleibt die Frage, ob sich CRAZY 
CARS II am Markt behaupten kann. 
Besitzer der Console und der Plus-Ge¬ 
räte bekommen beim Kauf ein Spiel, 
das CRAZY CARS II ebenbürtig ist. 
So ist es wohl eher ein Fall für Leute, 
die auf Rennspicle versessen sind und 
sich an BURNIN' RUBBER sattge¬ 
spielt haben. 


CRAZY CARS II 

Hersteller: Titus 
Steuerung: Joypatl 
Voraussetzung: GX 4000, 464 
Plus. 6128 Plus 
Preis: 98,00 DM (Cartridge) 
Bezugsquelle : EDV -Obermeier 
Bewertung: 

Grafik: 2 Sound:3 

Präsentation: 2 Motivation: 3 

Endnotc: 3 


Schon wieder ein Spiel zum Film: 
DICK TRACY. In der Rolle des be¬ 
rühmten Detektivs müssen Sie ergrün¬ 
den. was es mit dem Verschwinden 
Lips Manils auf sich hat. Big Boy Ca¬ 
price verkündet, daß die gegen ihn ge¬ 
äußerten Verdächtigungen haltlos sei¬ 
en — und heckt neue Pläne aus. Auch 
die anderen Personen werden in der 
Anleitung beschrieben, die bezaubern¬ 
de Tess Trueheart ebenso wie der 
smarte Gauner The Brown. Das Szena¬ 
rio wird derart gesetzt, daß man fast 
schon mit einem Adventure-ähnlichen 
Spiel rechnen könnte. Doch weit ge¬ 
fehlt! 

Alles schon mal dagewesen 

Der Spielablauf von DICK TRACY ist 
altbekannt. Anfangs unbewaffnet zie¬ 
hen Sie durch die Straßen und Cafes, 
müssen die Ganoven mit der bloßen 
Faust von sich halten. Hin und wieder 
ergibt sich die Gelegenheit, Waffen 
aufzusammeln. Das Spielfeld scrollt 
horizontal, und Gegner gibt es genug. 
Wenn die Figur von einem Schuß ge¬ 
troffen wird oder einen Feind berührt, 
verliert sie Energie. Wenn diese aufge¬ 
braucht ist, endet das Spiel. Daß der 
Spieler nur ein Leben hat, ist manch¬ 
mal etwas frustrierend. Vor allem weil 
cs Stellen gibt, an denen man ohne 
Waffen gar nicht vorbeikommen kann. 
Und wenn man gerade vorher seinen 
letzten Schuß verbraucht hat, kann ei¬ 
nen das ganz schön ärgern. 

Weiterhin ist cs nicht besonders schön, 
daß man cs wesentlich leichter hat, 
wenn man mit ein paar Tricks spielt. 
Vor allem auch deshalb, weil durch 
diese Tricks der Spiel fluß aufgehalten 
wird. 

Die Schüsse und Schläge aus dem Laut- 



BA TM AN — Eine fünfteilige Reise durch Gotham City 



CRAZY CARS II Verbrecherische Polizisten sind hinter Ihnen her! 
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DICK TRACY - Als Detektiv unterwegs 



NORTH & SOUTH — Viel Spaß verspricht dieses Comic-Strategiespiel 




Sprecher sind zwar nicht gerade spekta¬ 
kulär, aber der Melodie auf jeden Fall 
vorzuziehen. Etwas aufgewertet wird 
das laue Spielprinzip dadurch, daß end¬ 
lich die erweiterte Farbpalette, die bei 
Cartridge-Software zur Verfügung 
steht, ausgenutzt wird. Trotz hoher 
Auflösung sind Figuren, Häuser und 
Innenausstattung des Cafes farben¬ 
prächtig. Auch das Scrolling ist butter¬ 
weich. 

Seit Jahren kommen immer wieder 
ähnliche Spiele auf den Markt, die teil¬ 
weise wesentlich abwechslungsreicher 
und spielerisch überzeugender sind. 
Da es aber auf Cartridge noch nicht so 
viele Spiele dieser Art gibt, ist DICK 
TRACY vor allem lür Besitzer der GX- 
4000-Console geeignet, die ja nicht auf 
das große Angebot der Cassetten- und 
Disketten-Software zurückgreifen 
können. 


DICK TRACY 

Hersteller: Titus 
Steuerung: Joypad 

Voraussetzung: GX 4000. 464 Plus, 6128 Plus 
Preis: 98.00 DM (Cartridge) 

Bezugsquelle: EDV-Obermeicr 

Bewertung: 

Grafik: 2 Sound: 4 

Präsentation: 2 Motivation: 4 

Endnote: 3 


Erinnern Sie sich noch an “Fackeln im 
Sturm“? Etwas weniger kitschig, dafür 
lustiger geht es bei NORTH & 
SOUTH um das gleiche Thema, den 
Sezessionskrieg. Ganz im Stil eines 
französischen Comics (“Les Tuniques 
Bleues“) ist dieses Strategiespiel mit 
Action-Einlagen gehalten. Das beginnt 
mit Verpackung und Anleitung und 
zieht sich durch das ganze Programm. 
Sofort nach dem Laden fällt auf. wie¬ 


viel Mühe sich die Programmierer ge¬ 
geben haben. Drei Sprachen (Englisch, 
Französisch und Spanisch) stehen zur 
Auswahl. Alle Tasten können selbst 
definiert werden, was bei Spielen für 
zw'ei Spieler leider immer noch nicht 
selbstverständlich ist. Statt eines 
menschlichen Gegenübers springt auch 
der Computer ein. Die Fähigkeiten der 
beiden Seiten können verändert wer¬ 
den, was den Schwierigkeitsgrad eben¬ 
so verändert wie die Wahl des Jahres, 
in dem das Spiel beginnen soll. Des 
weiteren kann eingestellt werden, ob 
bestimmte Ereignisse, beispielsweise 
Indianerangriffe, zufällig auftreten sol¬ 
len oder nicht. Auch die Action-Se¬ 
quenzen können auf Wunsch weggelas- 
sen werden. 

Ziel jedes Spielers ist es, das Gebiet der 
Vereinigten Staaten zu besetzen bezie¬ 
hungsweise alle Armeen des Gegners 
zu besiegen. Nachschub gibt es über 
Bahnlinien, daher ist es wichtig, eine 
solche zu besitzen und zu sichern. Je 
mehr Länder man kontrolliert, desto 
schneller bekommt man auch neue Ar¬ 
meen. Treffen gegnerische Einheiten 
auf einem Land zusammen, blendet der 
Computer eine andere Darstellung ein. 
Das Schlachtfeld erscheint, und beide 
Spieler können ihre Kanonen, Reiter 
und Fußsoldaten so einsetzen, daß sie 
beim Gegner den größtmöglichen 
Schaden anrichten. Hier kommt es auf 
ein gutes Reaktionsvermögen an. Dies 
gilt auch für Zugüberfälle und Angriffe 
auf Forts. 

Einiges an diesem Programm erinnert 
an den Brettspiel-Klassiker “Risiko“, 
doch es ist beileibe keine billige Kopie 
oder Computer-Umsetzung. Freunde 
traditioneller Kriegsspiele kommen 
wahrscheinlich weniger auf ihre Ko¬ 


sten, denn das Spiel ist eher unterhal¬ 
tend als komplex. 

Beste Unterhaltung 
für viele Stunden 

NORTH & SOUTH verbindet wie kein 
anderes Spiel auf dem CPC Strategie 
mit guter, humorvoller Grafik und Ac¬ 
tion. Alle, die bisher Strategiespiele 
langweilig fanden, werden eines Bes¬ 
seren belehrt werden. Man wird vor al¬ 
lem zu zweit viele spannende Stunden 
haben. 


NORTH & SOUTH 

Hersteller: Infogrames 

Steuerung: Tastatur oder Joystick und Tastatur 

Voraussetzung: 128 kßyte 

Preis: 84.50 DM 

Bezugsquelle: EDV -Obermeier 

Bemerkungen: nur auf Diskette erhältlich 

Bewertung: 

Grafik: 2 Sound: 3 

Präsentation: I Motivation: I 

Endnote: I 


Wie anscheinend bei Umsetzungen von 
Spielautomaten üblich, glänzt auch 
BLACK TIGER nicht mit einer be¬ 
sonders originellen Rahmenhandlung. 
Böse Drachen überfielen die Erde, 
richteten Verwüstung an und stürzten 
die Welt in ein finsteres Zeitalter. Nach 
einiger Zeit findet sich ein Held, der 
bereit ist, das Land wieder etwas 
wohnlicher zu gestalten und die Stören¬ 
friede zu beseitigen. In diesem Fall 
heißt dieser Held Black Tiger. 

Bekannte Story, 
bekanntes Spielprinzip 

Doch bei einer Automaten-Umsetzung 
sollte man nicht so sehr auf die Story 
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achten. Gute Grafik, abwechslungsrei¬ 
che Gegner und ein Hotter Spielablauf 
machen einen gutes Arcade-Spiel aus. 
Im Idealfall steckt sogar noch eine ori¬ 
ginelle Spielidee dahinter. 

Doch leider hat BLACK TIGER auch 
auf diesen Gebieten nichts vorzuwei¬ 
sen. Zwar hat es einige wenige Eigen¬ 
heiten — das Spielfeld scrollt auch 
nach oben und unten, wodurch das 
Spiel noch einige Plattform-Elemente 
enthält — und relativ viele unterschied¬ 
liche Feinde. Doch durch eine scrollen- 
de Landschaft laufen, Extrawaffen ein¬ 
sammeln odereinkaufen, Bonuspunkte 
ergattern und tote Feinde am Weges¬ 
rand lassen, gab es schon oft. Selten je¬ 
doch mit so einfarbiger Grafik — das 
Spielfeld ist grün und schwarz, ohne 
Schattierungen - und einem sehr 
ruckigen Scrolling. Wo andere Spiele 
mit realistisch dargestellten Animatio¬ 
nen aufwarten, zeigt sich bei BLACK 
TIGER nur eine merkwürdige Bewe¬ 
gung der Beine. Die Steuerung ist recht 
ungenau. Sound-Effekte fehlen völlig. 
Auch die Musik tut nicht viel, um den 
miserablen Gesamteindruck aufzubes¬ 
sern. Einzeln wären diese Punkte viel¬ 
leicht noch zu verkraften, aber leider 
werden sie durch keine Vorteile gegen¬ 
über anderen Action-Games wettge- 
macht. 

Schwarzer Tiger 
oder lahme Ente? 

Wie war das doch gleich auf der Ver¬ 
packung? “U.S. Gold have created the 
Gold Standard. Others can only seek to 
emulate.“ Wenn sich andere Software- 
Häuser wirklich anstrengen müßten, 
um die Qualität von BLACK TIGER zu 
erreichen, würde ich noch heute mei¬ 
nen CPC verkaufen. 


BLACK TIGER 

Hersteller: US Gold 
Steuerung: Joystick oder Tastatur 
Voraussetzung: für alle CPCs 
Preis: 61,50 DM 
Bezugsquelle: EDV-Obernteier 
Bemerkung: lädt nach 
Bewertung: 

Grallk: 4 Sound: 4 

Präsentation: 4 Motivation: 3 

Endnote: 4 


Auch in SWITCHBLADE geht es um 
eine altbekannte Story. Die sechzehn 
Teile eines Schwertes müssen gefun¬ 
den werden, um Havok zu besiegen. 
Werdas ist, wird in der Anleitung nicht 
erwähnt. Aber er hat den Tod einiger 
Leute auf dem Gewissen und auch 
sonst einiges Unheil angerichtet. Nach 


seiner Rückkehr ist die zehntausend¬ 
jährige Phase des Friedens vorbei. Das 
dürfte wohl Grund genug sein, ihn ein 
für allemal an seinem schändlichen 
Treiben zu hindern. 

Im Kampf 

gegen den Tyrannen 

Der größte Teil des Spiels findet unter¬ 
irdisch statt. Dort gibt es ein weitver¬ 
zweigtes System von Räumen und 
Gängen, in denen allerlei Gefahren lau¬ 
ern. Diese reichen von Flammen über 
Fantasy-Lebewesen bis hin zu Robo¬ 
tern. Die einzelnen Teile der Räume 
sind über Leitern verbunden, außer¬ 
dem kann die Spielfigur springen. 
Unser Held kann sich anfangs mit 
Fausthieben und Fußtritten zur Wehr 
setzen. Später hat er die Gelegenheit, 
sich mit verschiedenen Schußwaffen 
effektiver zu verteidigen. Je länger der 
Feuerknopf gedrückt wird, desto kräf¬ 
tiger der Schuß oder Schlag. Auf diese 
Weise läßt sich auch die Tritthöhe re¬ 
gulieren. Andere Extras verstärken die 
eigene Panzerung oder steigern die 
Durchschlagskraft der Waffen. Durch 
Aufsammeln von Buchstaben lassen 
sich Bonuspunkte, aber auch Freileben 
erhaschen. 

Doch viele dieser Hilfen fallen unse¬ 
rem Helden nicht in den Schoß. Viel¬ 
mehr sind einige von ihnen unter Stei¬ 
nen versteckt, die zuerst zerschlagen 
werden müssen. Und wer einmal kräf¬ 
tig gegen die Wand tritt, findet bei die¬ 
ser Gelegenheit vielleicht sogar einen 
Gcheimgang. Eine weitere Besonder¬ 
heil des Spiels ist, daß nur die Räume 
sichtbar sind, die man schon besucht 
hat. Wenn man also in einem kleinen 
Raum steht, der nur einen Bruchteil des 
Bildschirms füllt, sieht man anfangs 
nur die Ausgänge. Wenn man dann ei¬ 


nen davon durchschreitet, wird schlag¬ 
artig der neu betretene Raum sichtbar, 
wodurch man hin und wieder unange¬ 
nehme Überraschungen erleben kann. 
Der alte Raum blcibl natürlich 
sichtbar. 

Das Erforschen der Räume macht 
Spaß, besonders auch die Suche nach 
Geheimgängen. Der Schwerpunkt des 
Spiels liegt eindeutig auf Action, doch 
wer ein bißchen nachdenkt und mit der 
richtigen Taktik vorgeht, kommt an ei¬ 
nigen Stellen viel leichter vorbei. An¬ 
genehm auch, daß man bei jedem Spiel 
etwas weiterkommt und trotzdem im¬ 
mer wieder neue Herausforderungen 
findet. Auch wenn das Spielprinzip alt¬ 
bekannt klingt, spielt sich SWITCH¬ 
BLADE doch erfrischend anders als 
Konkurrenzprodukte. Erfreulich ist die 
Liebe zu Details bei der Präsentation, 
die vom Aufbau der Titelgrafik bis zur 
Einführung ins Spielgeschehen gelun¬ 
gen ist. Auch an eine Highscore-Liste 
wurde gedacht. 

Ausgefeilt! 

Besitzern von 128-kByte-Rechnern fällt 
die Wahl zwischen den knackigen 
Sounds und dem ebenso gelungenen 
Musikstück sicher schwer. Wer nur 
64 kByte Speicher hat, muß sich mit Ef¬ 
fekten begnügen. Ein besonderes Lob 
gilt aber dem Grafiker. Wie hier der 
vierfarbige Mode I des CPC ausgereizt 
wurde, setzt neue Maßstäbe. Geschick¬ 
te Schattierungen lassen die Steine soli¬ 
de, ja beinahe plastisch wirken. Natur¬ 
gemäß ist der Bildschirm zwar nicht 
knallbunt, dafür paßt aber die Farb¬ 
wahl sehr gut zum Spiel. Und da einige 
zusätzliche Farben von Bild zu Bild va¬ 
riiert werden, ist zusätzlich für Ab¬ 
wechslung gesorgt. Man findet wenig, 
was noch zu verbessern wäre. Bravo! 
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SWITCHBLADE 

Hersteller: Gremlin 

Steuerung: Joystick 

Voraussetzung: für ulleCPCs 

Preis: 61,50 DM 

Bezugsquelle: EDV-Obermcier 

Bemerkung: auch mit leicht verbesserter Grafik 

- auf Cartridge erhältlich 

Bewertung: 

Grafik: I Sound: 2 

Präsentation: I Motivation: I 

Endnole: I 


MOONWALKER heißt der erste Ki¬ 
nofilm des scheuen Superstars - oder 
muß man schon Megastar sagen? - 
Michael Jackson. Während andere 
Musiker versuchen, möglichst viele 
Fans zu haben, um sich in deren Anbe¬ 
tung sonnen zu können, ist Michael 
Jacksons größtes Problem, seinen Fans 
zu entkommen. 

Mr. Big ist ein unfreundlicher Zeitge¬ 
nosse: Er handelt mit Drogen. Außer¬ 
dem, was noch schlimmer ist, verrät er 
Michaels Versteck dessen Fans. 

Auf der Flucht vor Fans 

Das Spiel beginnt in den Filmstudios, 
wo unter anderem Teile eines Kanin¬ 
chenkostüms eingesammelt werden 
müssen, die Michael benötigt, damit 
ihn seine Anhänger nicht erkennen. 

Mit einem Motorrad geht die Flucht 
aus der Stadt weiter. Dieses kann durch 
Aufsammeln von Kugeln in ein Auto 
verwandelt werden, das in der Lage ist, 
Straßensperren zu durchbrechen. Für 
zerstörte Drogen verstecke gibt’s Bo¬ 
nuspunkte. 

Im Club 30 angekommen, kann sich 
unser Star nicht etwa ausruhen. Viel¬ 
mehr muß er eine Bewaffnung finden, 
um es mit Mr. Bigs Bande aufnehmen 
zu können. Beim Finale in der Arena 


sieht sich Michael Jackson plötzlich ei¬ 
ner Plasma-Kanone gegenüber. Diese 
soll zerstört werden, damit er sich dann 
auf die Auseinandersetzung mit Mr. 
Bigs Truppen konzentrieren kann. 

Nach dem eindrucksvollen Vorspann 
folgt bald die Ernüchterung. Der erste 
Teil ist quälend langweilig. Das Laby¬ 
rinth - von oben gesehen — ist riesig 
und die Spielfigur langsam, so daß die¬ 
ser Teil endlose Längen hat. Die Fein¬ 
de sind so dünn gesät, daß man manch¬ 
mal eines der zwanzig (!) Leben ver¬ 
liert, weil man gar nicht mehr damit 
gerechnet hat, daß man auch noch auf 
Gegner achten muß. 

Etwas besser geht es dann im zweiten 
Teil weiter, der dem ersten ähnlich, 
aber doch anspruchsvoller ist. 

Nach dem schwachen 
Anfang wird’s besser 

Erst im dritten und vierten Teil kommt 
wirklich Action auf. Nur wegen diesen 
lohnt es sich auch, MOONWALKER 
zu spielen. Doch kann einem schnell 
die Lust vergehen, sich jedes Mal wie¬ 
der eine Viertelstunde durch Level 1 zu 
quälen. 

Wenn man diesen mit einem Code 
überspringen könnte, wäre viel ge¬ 
wonnen. 

Beim CPC 464 funktioniert die Nachla¬ 
deroutine nicht, während es auf dem 
CPC 6128 keine Probleme gibt. Die 
Grafik ist durchweg gehobener Stan¬ 
dard. 

Merkwürdig ist nur, daß in einem 
Spiel, in dem es um einen Musikstar 
geht, die Musik so schlecht ist. Sie stei¬ 
gert sich zwar wie das Spiel selbst ge¬ 
gen Ende, aber im ersten Teil wird man 
sie nach wenigen Sekunden abschalten. 


MOONWALKER 

Hersteller: US Gold 
Steuerung: Joystick oder Tastatur 
Voraussetzung: CPC 6128 
Preis: 61,50 DM 
Bezugsquelle: EDV Obermeier 
Bemerkung: ladt nach 
Bewertung: 

Grafik: 3 Sound: 3 

Präsentation; 3 Motivation: 3 

Endnotc: 3 


Überraschend ausführlich und stim¬ 
mungsvoll ist die Einführung in die 
Handlung von VENDETTA. Sie sind 
ein ehemaliger Kriegsheld und nun ein 
Ausgestoßener aus der Gesellschaft, 
weil Ihre Erfolge die Ihrer Vorgesetz¬ 
ten überstiegen haben und diese Ihnen 
das Leben zur Hölle machen wollen. 
Ihr Bruder arbeitet als Professor für 
das Verteidigungsministerium an 
hochbrisanten Entwicklungen. Als er 
eines Tages von Terroristen entführt 
wird, ist für Sie die Stunde der Rache 
gekommen. An seinen Entführern. 
Und an Ihren ehemaligen Vorge¬ 
setzten . 

Rache ist süß! 

Von schräg oben gesehen ist VEN¬ 
DETTA ein dreidimensionales Arca- 
de-Adventure. Während Sie Gebäude 
und Schubladen durchstöbern, müssen 
Sie sich vor den Terroristen in acht 
nehmen oder sich diesen tat- und 
schlagkräftig entgegenstellen. Doch 
bei allen Kämpfen sollte die eigentliche 
Mission nie vergessen werden, zumal 
die Zeit unaufhaltsam verstreicht. Um 
an manche Gegenstände zu gelangen, 
ist die Bedienung eines herumstehen- 
den Computers erforderlich. Doch die¬ 
ser beginnt nach dem Einlegen einer 
Diskette noch nicht zu arbeiten, son- 



SWITCflBLADE - Langweilige Sion,’, spannendes Spiel 


MOONWALKER — Der scheue Michael Jackson ist auf der Flucht vor sei¬ 
nen Fans 
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dein erwartet zuvor die Eingabe einer 
Codezahl. Diese muß erst gefunden 
werden! 

Nach einiger Zeit gelingt es vielleicht 
auch, den Rennwagen einsatzbereit zu 
machen. Dann können Sie in andere 
Teile der Stadt fahren und dort die Su¬ 
che fortsetzen. Dazu schaltet der Com¬ 
puter in die übliche Darstellung eines 
Rennspiels um. 

VENDETTA ist genauso knifflig und 
komplex, wie es klingt. Es hätte vom 
Spielaufbau her das Zeug zu einem Su¬ 
perspiel. Leider ist aber die Program¬ 
mierung etwas daneben gegangen. Daß 
der Lautsprecher fast stumm bleibt und 
die Grafik weitestgehend schwarz¬ 
weiß ist, könnte man bei dieser Art von 
Spiel vielleicht noch verkraften. Ein 
großes Manko ist jedoch die Kollisi¬ 
onsabfrage. Diese führt nicht zum Tod 
des Spielers. Aber manchmal kann 
man durch Gegenstände einfach durch¬ 
laufen, an anderen Stellen ist der Weg 
blockiert, obwohl der Bildschirm frei 
ist. Das kann die Suche manchmal 
ziemlich erschweren. 

Wenn man sich eine Weile mit VEN¬ 
DETTA beschäftigt, gewöhnt man sich 
an diese Mängel ein wenig. Wer so viel 
Zeit aulbringt und nach der ersten Ent¬ 
täuschung weiterspielt, bekommt hier 
aber ein Programm, das auch Tüftler 
längere Zeit beschäftigen dürfte. 
Ebenfalls von System 3 kommt TUS- 


VENDETTA 

I lersteller: System 3 

Steuerung: Tastatur oder Joystick und Tastatur 

Voraussetzung: für alle CPCs 

Preis: 69.95 DM 

Bezugsquelle: EDV-Oberineier 

Bemerkung: lädt nach 

Bewertung: 

Grafik: 4 Sound: 5. 

Präsentation: 3 Motivation: 2 

Endnote: 3 


KER. das in die gleiche Kerbe wie 
VENDETTA schlägt. Ort der Hand¬ 
lung ist diesmal Afrika. 

Sein Leben lang war Ihr Vater ein 
Abenteurer. Zu seinem großen Leid¬ 
wesen teilten Sie jedoch diese Leiden¬ 
schaft nie. Doch von seiner letzten Rei¬ 
se ist Ihr Vater nie zurückgekehrt. Sie 
stöbern in seinen Unterlagen und lin¬ 
den sein Tagebuch, aus dem einige Sei¬ 
ten herausgerissen sind. Es gibt An¬ 
haltspunkte dafür, daß Ihr Vater dicht 
daran war, den legendären Elefanten- 
ITiedhof zu finden. Da flammt sein 
Geist in Ihnen auf, und Sie machen sich 
auf den Weg nach Afrika, um seinen 
Spuren zu folgen. 

Startschwierigkeiten durch 
fehlerhafte Anleitung 

Das Szenario für das Spiel wird schön 
gesetzt, und einige Tips erleichtern den 
Einstieg in das Geschehen. Die Anlei¬ 
tung hat aber auch ein großes Manko. 
Laut dieser kann man mit den Tasten 
Fl und F7 die Objekte umschalten und 
mit der Leertaste herumliegende Ge¬ 
genstände aufsammeln. Daß die Objek¬ 
te in Wirklichkeit mit den Tasten 1 und 
2 umgeschaltet werden, findet man 
durch Ausprobieren noch ziemlich 
schnell heraus. Bis man weiß, wie man 
etwas aufsammeln kann, verliert man 
jedoch einige Nerven. Tatsächlich gehl 
es. indem man den Joystick schräg 
nach rechts unten oder links unten be¬ 
wegt und gleichzeitig den Feuerknopf 
drückt. 

Beim Spielen muß man sich vor Ara¬ 
bern, Wächtern und allerlei anderen 
Gefahren hüten. Auch auf den Wasser- 
vorral sollte man ein wachsames Auge 
haben. Ans Ziel gelangt man jedoch 
nur, wenn man den richtigen Gegen¬ 


stand am rechten Ort verwendet. Das 
stellt den Spieler ab und zu vor größere 
Probleme. Dieses Ausprobieren der 
Wirkung der Hilfsmittel und das Er¬ 
kunden der Lokalitäten machen den 
Reiz von TUSKER aus. 

Spaß für mehr als nur 
einen Nachmittag 

Auch wenn an Farben ziemlich gespart 
wurde, sind grafisch gute Ansätze vor¬ 
handen. Andere Stellen sind jedoch et¬ 
was ungelenk gezeichnet. Musik spielt 
nur direkt nach dem Laden, und wäh¬ 
rend des Spiels gibt der Computer nur 
selten Töne von sich. Trotzdem kom¬ 
men Spieler, die gerne herumforschen 
und ausprobieren, bei TUSKER auf 
ihre Kosten. 

Abschließend bietet sich noch ein Ver¬ 
gleich mit VENDETTA an. das vom 
Spielprinzip her sehr ähnlich angelegt 
ist. Bei TUSKER fallt der Einstieg we¬ 
sentlich leichter, was auch an der um 
Längen besseren Programmierung 
liegt. Dafür ist VENDETTA wesent¬ 
lich komplexer. Welchem Pogramm 
man den Vorzug gibt, hängt nicht zu¬ 
letzt davon ab, worauf man persönlich 
den größeren Wert legt. 


TUSKER 

Hersteller: System 3 
Steuerung: Joystick oder Tastatur 
Voraussetzung: für alle CPCs 
Preis: 61.40 DM 
Bezugsquelle: EDV Obcrmeicr 
Bemerkung: lädt nach 
Bewertung: 

Grafik: 3 Sound: 4 

Präsentation: 3 Motivation: 2 

Endnote: 3 


Aus Frankreich bekamen wir auch et¬ 
was Neues. Das Spiel BUILDER- 
LAND ist die Antwort auf das beliebte 



VENDETTA — Reuen Sie Ihren Bruder. Und Ihren Ruf. 


TUSKER — Der schwarze Kontinent wartet auf Sie! 
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BUILDERLAND 
Buhnen Sie Ihrem Hel¬ 
den den Weg I 


spiel Lemmings. Die Aufgaben liegen 
nur etwas anders. Bei Lemmings müs¬ 
sen Sic dafür sorgen, daß die Lemmin¬ 
ge sich selbst den Weg bahnen. Bei 
BUILDERLAND müssen Sie dem 
Helden des Spiels mit Hilfe des Joy¬ 
stiks den Weg passierbar machen. 

Dieser läuft unaufhaltsam von links 
nach rechts, dargestellt durch einen 
scrollendcn Hintergrund. Leider ist das 
etwas ruckartig ausgefallen, wird aber 
durch die sehr gute und farbige Grafik 
wettgemacht. 

Lemmings verkehrt 

Sie reparieren deffekte Treppen, spren¬ 
gen Durchgänge in Mauern, beseitigen 
Tretminen oder sorgen für die seltsam¬ 
sten Fortbewegungsmittel. Ständig ist 
man auf der Suche nach Hilfsmitteln, 
damit der Held weiterkommt. 

Hiermit ist aber das Spiel noch lange 
nicht ausgeschöpft. So hat unser Held 
natürlich auch Feinde, vor denen er ge¬ 
schützt werden muß. Ist dies nicht 
möglich, so kann er auch einmal dazu 
gebracht werden, Eigeninitiative zu 
entwickeln. Auf dem bisherigen Weg 
aufgesammelte Waffen und Gegenstän¬ 
de können ihm zur Verteidigung über¬ 
geben werden. 

Auch können sich vermeintliche Fein¬ 
de einmal als nützlich erweisen. So 
werden beispielsweise gefährliche In¬ 
sekten zur Überquerung eines Hinder¬ 
nisses benutzt. Vorher müssen diese 
natürlich ausgetrickst werden. 

Auf dem Weg trifft man auch häufig 
auf unvollständige Häuser. Baut man 
diese wieder auf, gelangt man in einen 
Bonuslevel. Hier verhält sich unser 
Held plötzlich ganz anders. Nun muß 
er mit dem Joystik durch ein einfaches 
Labyrinth bewegt werden. Ziel ist es, 
ein gefährlich aussehendes Monster zu 
erledigen. Hat man dies geschafft, er¬ 
hält man für das weitere Spiel einen 
Zeitbonus. 

Diese Bonuslevels sind sehr einfach zu 
bezwingen und stellen eher eine Erho¬ 
lung gegenüber dem Hauptspiel dar. 
Eine Hintergrundmusik gibt es nicht. 
Dafür wurde bei dem Spielablauf nicht 
mit Toneffekten gespart. So hört man 
ständig die Schritte unseres Helden. 
Auch andere Gegenstände machen bei 
ihrer Bewegung entsprechende Geräu¬ 
sche, ohne aber mit der Zeit aufdring¬ 
lich zu wirken. 

Eine kurze Spielanleitung lag leider 
nur in Französisch und Englisch vor. 
Jedem, der gern Taktik und Geschick¬ 
lichkeit in einem hat, kann man dieses 
Spiel empfehlen. Leider gibt es für die¬ 


ses Spiel noch keinen Vertrieb in 
Deutschland. Aber LORICIEL versi¬ 
cherte uns, daß das Spiel auch bei ihnen 
direkt bestellt werden kann. 


BUILDERLAND 

Hersteller: LORICIEL 
Steueruni’: Joystick 
Voraussetzung: für alle CPCs 
Preis: etwa 60 DM 
Bezugsquelle: LORICIEL 
Bewertung: 

Grafik: I Sound: 2 

Präsentation: 2 Motivation: I 

Endnote: 2 


Wir hoffen, daß wir Ihnen mit unserer 
Spicle-Revicw wieder einen Einblick 
in den derzeitigen Spielemarkt geben 
konnten. Vielleicht ist das eine oder an¬ 
dere Spielchen dabei, bei dem Sie sa¬ 
gen: “So etwas habe ich doch schon 
lange gesucht, und das gibt es also auch 
für den CPC!“ Dann haben wir doch 
mal wieder für den CPC eine Bresche 
geschlagen und bewiesen, daß er "in“ 
ist. 

Jetzt noch etwas anderes: Da gibt es 
doch einige Freaks, die sich darüber 
beschweren, daß in unserer Review 
auch ältere Spiele vorgestellt werden. 
Sie sollten aber nicht vergessen, daß 
manche älteren Spiele besser gelungen 
sind als die sogenannten “brandneu¬ 
en“, und deshalb noch nichts an Reiz 
eingebüßt haben. 

Einige neue Spiele stellen, betrachtet 
man die Sache genau, auch nur einen 
Abklatsch eines allen Spieles dar. Es 
mußte vielleicht gerade mal wieder ein 
neues auf den Markt, und dem Autor 
fiel nichts weiter ein, als irgendeinen 
Film zur Grundlage zu nehmen. Das 
Spiel bleibt immer das gleiche, nur die 
Figuren und Räume sehen etwas anders 
aus. 

Für Neueinsteiger und “Nicht-Spiele- 


Freaks“ soll diese Rubrik einen Über¬ 
blick geben, was so auf dem Markt zu 
haben ist. 

Viele Leser wünschen sich auch, daß in 
der Review gleich alle möglichen Tips 
und Tricks zu den Spielen gegeben 
werden. Wir meinen aber, daß man 
nicht gleich am Anfang eines Spieles 
alle Geheimnisse kennen sollte. Wo 
bliebe denn dann der Reiz des Spieles? 
Alle, die aber Schwierigkeiten haben, 
und irgendein Level eines Spieles ein 
unüberwindliches Hindernis darslellt, 
möchten wir an unsere Gamers Messa¬ 
ge verweisen, die jetzt wieder in jedem 
Heft zu finden ist. 

Die in unserer Spiele-Rcview jeweils 
vorgestellten Spiele sind natürlich 
nicht nur bei den hier genannten, son¬ 
dern auch bei anderen Händlern zu be¬ 
kommen, nur irgendwoher müssen wir 
sie ja auch nehmen. 

Nun genug der Worte und “Gut Spiel“. 

Andreas Lober/jg 


Die Muster stellten uns 
zur Verfügung: 

EDV-Obermeicr 
Bünder Straße 20 
4972 Löhne 
Tel.: 05732/6126 

LORICIEL 

81, rue de la Procession 
92500 Rueil 

Tel.: (0033) 1 47521183 

Die angegebenen Preise beziehen sich, 
soweit nichts anderes angegeben ist, 
auf die Disketten-Vcrsion und die unter 
der Bezugsquelle angegebene Firma. 
Preise anderer Händler können davon 
abweichen. 
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Neues aus 
Frankreich 


Vier Spitzenprogramme im Test 


Schnell machte Jörg die Tür zu: “Ist etwa der Chefred in 
der Nähe?“ Sein Blick löste sich von der Tür und 
schweifte langsam in die Richtung eines Paketes mit der 
Aufschrift “Loriciel“. War dies etwa die Reaktion von 
Loriciel auf das kurz zuvor geführte Gespräch? 
Eigentlich mußte es so sein. 

“Laß uns auspacken, Ralf, die versprochenen Spiele aus 
Frankreich sind da“. Der Angesprochene hatte bereits 
den verträumten Blick aufgesetzt, flüsterte verzückt 
“Fronkraisch, Fronkraisch...“ und schaltete schon mal 
den CPC an. 



Tja, da lagen Sie vor uns auf dem Tisch: 
vier brandaktuelle Programme für die 
kleinen Amstrad-Rechner. Die Spiel- 
Orgie konnte also losgehen. 

Super Skweek 

Als erstes fiel unser Blick auf das Pro¬ 
gramm Super Skweek. Hierbei handelt 
es sich um ein Spiel, das nicht allein 
durch seine gute Grafik, sondern viel¬ 
mehr durch das gut durchdachte Spiel¬ 
prinzip auffallt. Es geht darum, eine 
Spielfläche, die in mehrere Felder un¬ 
terteilt ist, durch einmaliges Betreten 
selbiger einzufärben. Daß dies natür¬ 
lich nicht gerade ohne Probleme von¬ 
stallen geht, versteht sich von selbst. 
Auf der Spielfläche laufen nämlich 
ganz nebenbei auch noch eine ganze 
Menge übler Burschen herum, wobei es 
nicht gerade einfach ist, diesen auszu¬ 
weichen oder aber diese zu erschießen. 
Während das Programm in den ersten 
Leveln nur in einer Ebene spielt, kann 
man später mittels eines Lifts in andere 
Ebenen springen, in welchen man die 
gleiche Aufgabe hat. Dies kann sehr 
haarig werden, da hier nicht die ganzen 
Felder ausgefülll sein müssen. So hat 


man teilweise nur schmale Laufstege, 
die am Ende-wieder zu einem Lift füh¬ 
ren. Kommt nun auch noch ein Gegner, 
der sich nicht abschießen läßt, heißt es, 
schnell zurückrennen und dem Gegner 
Platz machen. 

Selbstverständlich kann man auch ei¬ 
nen Laden besuchen, in dem man sich 
für das zwischendurch eingesammelte 
Geld neue Zusätze kaufen kann. Die 
Palette reicht von Munition, die in vier 
Richtungen losgeht, bis hin zu Bonus¬ 
leben. 

Auf jeden Fall ist dieses Spiel eine Be¬ 
trachtung wert. Einziger Nachteil hier¬ 
bei ist. daß leider nur eine französische 
Anleitung beiliegt. Nach einigen Test¬ 
spielen wird man jedoch auch so her¬ 
ausgefunden haben, wiedas Spiel funk¬ 
tioniert. Wer ein Actionstrategieballer¬ 
spiel gesucht hat, wird hiermit sicher¬ 
lich seine Freude haben. 

BOOLY 

Welches sind Ihre Lieblingsspiele? Sie 
haben etwas für Taklikspiele, wo aber 
trotzdem etwas Geschicklichkeit ge¬ 
fragt ist, übrig? Dann ist BOOLY ge¬ 


nau das richtige für Sie. Mehrere Per¬ 
sonen können sich ebenfalls an diesem 
Spiel beteiligen. Die Aufgabe des Spie¬ 
les besteht darin, einem Gitter aus Fel¬ 
dern ein einheitliches Aussehen zu ge¬ 
ben. Vorgabe hierfür ist das Feld 
“GOOD“ im Menü. Sie wählen das 
entsprechende Feld an, dieses dreht 
sich und wechselt damit die Farbe. 

Damit aber nicht genug, denn einige 
Felder sind auch untereinander verbun¬ 
den. Drehen Sie nun ein Feld, bewegen 
sich gleich einige umliegende mit. Dies 
macht schnell vorangegangene Bemü¬ 
hungen zunichte, was aber erst den Reiz 
des Spieles ausmacht. Zur Unterstüt¬ 
zung können die Verbindungen der Fel¬ 
der auch sichtbar gemacht werden. 
Während dieser Darstellung läuft aber 
die Zeit um ein Vielfaches schneller ab. 
Mit dieser Option sollte man also sehr 
sparsam umgehen. 

Haben Sie nun die Lösung für eine waa¬ 
gerechte, senkrechte oder diagonale Li¬ 
nie gefunden, so erhalten Sic einen 
Bonus. 

Nach jeweils drei Bildern kommen Sie 
in die Spielstufe CHALLENGES. Hier 
liegt die Aufgabe ähnlich, doch kann 
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Super SKWEEK 


HOOLY 




hier jedes Feld drei Farben annehmen. 
Haben Sie dieses Bild geschafft, kom¬ 
men Sie in die jeweils nächste Spielstu¬ 
fe. Als besonders nützlich ist der einge¬ 
baute Editor zu bezeichnen. Sind Ihnen 
die vorhandenen Bilder zu langweilig 
geworden, so "stricken“ Sie sich selbst 
welche zusammen. 

Mit dem Spiel erhalten Sie eine deut¬ 
sche Anleitung, die aber leider nicht 
auf die Spielvariante für den CPC ein¬ 
geht. So muß man doch ein wenig her¬ 
umrätseln bis man herausgefunden hat. 
daß die Feuertaste durch Drücken aller 
vier Cursortasten erreicht wird, eigent¬ 
lich eine sehr unübliche Tastenbele¬ 
gung. Nun ist man in der Lage, die Be¬ 
dienung des Spiels auf den Joystick um¬ 
zuschalten. Für Nutzer eines Grün¬ 
oder Schwarzweiß-Monitors ist dieses 
Spiel weniger gut geeignet. Ebenfalls 
als etwas störend empfindet man die je¬ 
weils am Spielanfang stattfindende 
Handbuchabfrage. 

Kennen Sie das Farbtheorcm? Da wird 
behauptet, daß man jede beliebig unter¬ 
teilte Fläche mit vier Farben füllen kann. 
Das klingt ja relativ einfach. Aber es sol¬ 
len niemals zwei Farben nebeneinander 
liegen! Sie glauben, schnell das Gegen¬ 
teil beweisen zu können? 



//: DECOUVRE I.ES FORM ES 


QUADREL 

Starten Sie einen Versuch mit QUA- 
DRF.L. Dieses Spiel macht es Ihnen 
aber nicht so einfach wie eben be¬ 
schrieben. Hier haben Sie nur eine be¬ 
grenzte Anzahl jeder Farbe zur Vertil¬ 
gung. Es gilt, eine Strategie zu ent¬ 
wickeln, um alle Flächen mit einer Far¬ 
be zu füllen. Aber aufgepaßt, denn der 
Computer gestattet Ihnen erst gar nicht, 
zwei gleiche Farben nebeneinander zu 
plazieren. 

Das Programm steht in vier Varianten 
zur Verfügung. Erstens. Sie spielen frei 
und allein. Zweitens Sie spielen allein, 
aber der Computer schreibt Ihnen vor, 
welches Feld Sie als nächstes mit einer 
Farbe füllen sollen. Die Farbe können 
Sie, soweit vorhanden, frei wählen. 
Drittens, Sie spielen gegen den Compu¬ 
ter und viertens gegen einen menschli¬ 
chen Gegenspieler. Eine Zeitbegren¬ 
zung, an der das Spiel abgebrochen 
wird, gibt es nicht. Dagegen spielt aber 
die Zeh bei der Punkteberechnung eine 
Rolle. Also wenn Sie einen Gegenspie¬ 
ler haben, sollten Sie sich schon etwas 
beeilen. Da es bei dem Spiel um Farben 
geht, ist natürlich ein Color-Monitor 
Voraussetzung. 

Für die Kleinen 

Wenn man Kinder hat. kennt man das 
leidige Problem: Auch die allerklein- 
slen wollen schon mal mit dem Compu¬ 
ter spielen. Meist hat man aber kein 
passendes Spiel, welches schon unsere 
Jüngsten bewältigen könnten. In diese 
Lücke drängt sich nun LOR1CIEL mit 
ihrem Spiel JE DECOUVRE LES 
FORMES. 

Das klingt völlig französisch, aber kei¬ 
ne Angst: Das Spiel ist für Kinder von 


drei bis acht Jahren geeignet und 
kommt völlig ohne Schrift und Sprache 
aus. Wie auch ein des Französischen 
Unkundiger dem Namen entnehmen 
kann, beschäftigt sich dieses Spiel mit 
Formen. 

Kurz gesagt ist es ein Puzzle. Man kann 
zwischen insgesamt 24 Bildern aus drei 
Kategorien wählen. 

Flat man ein Bild gewählt, so hat man 
jetzt noch die Möglichkeit festzulegen, 
in wieviel Teile das Bild zerlegt werden 
soll. Für die unerfahrensten Spieler 
gibt es die Möglichkeit, mit fünf Teilen 
zu beginnen. Alte Hasen können sich 
dagegen an SO Teilen messen. Letztere 
Aufgabe ist schon reichlich kompli¬ 
ziert, so daß diese Variante schon für 
Puzzlefreunde unter den Erwachsenen 
interessant wird. Mit einer weiteren 
Option wird bestimmt, ob die Teile ver¬ 
mischt werden sollen oder in ihrer rich¬ 
tigen Reihenfolge zur Bildzusammen¬ 
setzung zur Verfügung stehen. 

Dieses Spiel wird nur mit einer franzö¬ 
sischen Kurzanleitung geliefert. Aber 
das ist kein eigentliches Manko, da es 
sehr leicht zu bedienen ist. 

Die vorgestellten Spiele sind alle von 
der Firma LORICIEL aus Frankreich. 
In Deutschland hat sich bis heute leider 
noch kein Vertreiber für diese Spiele 
gefunden. Über aktuelle Bezugsmög¬ 
lichkeiten sollten Sie sich direkt bei der 
Firma informieren. Die Adresse haben 
wir in einer Box abgedruckt. Jedes 
Spiel kostet 199 FF, das sind etwa sech¬ 
zig DM. 

rs/jg 


LORICIEL S.A. 

81, rue de la Processibn 
92500 Rueil-Malmaison 
Tel.: (1)47 52 11 33 
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Bericht 


“Englisches Wetter“ 
für die CPCs 


Ein Blick auf die “Business Computing’91 “ 

Was hat denn ein Bericht über eine Computermesse in England in unserem 
Magazin zu suchen? Viele werden sich diese Frage wohl stellen. Aber beson¬ 
ders für die PCW-Anwender haben wir da eine Überraschung: Dort in Lon¬ 
don wurde der neue PCW 9512 plus vorgestellt. 



Vom 17. bis 20. September fand in Lon¬ 
don eine Computermesse, die “Busi¬ 
ness Computing ’91“, statt. Alle renom¬ 
mierten Hard- und Softwarehäuser ga¬ 
ben sich hierein Stelldichein. Als briti¬ 
scher Hersteller mit Gespür für den 
Inlandsmarkt war selbstverständlich 
auch Amstrad vertreten. Die Compu¬ 
ter-Abteilung des Elektronik-Konzerns 
präsentierte dem interessierten Publi¬ 
kum hier die System-Palette für die 
kommenden Monate. Wir nutzten die 
Gelegenheit, um den Amstrad-Vertre- 
tern am Stand ein paar Fragen zu stellen 
und den einen oder anderen Blick auf 
die gezeigten Neuheiten zu erhaschen. 

Bekannte Technik, 
neu gemischt 

Wer den Stand aufmerksam betrachtete, 
dem fiel ein Computer ins Auge, der im 
Design etwas von den anderen abwich. 
Monitor und Computer bilden bei die¬ 
sem Gerät eine Einheit — es ist auch 
deutlich kleiner als die üblichen PCs. 
Der untere Teil ist jedoch etwas abge¬ 
setzt, so daß man von weitem den Ein¬ 
druck hat, der Monitor würde auf dem 
Computer stehen. Sieht man jedoch ge¬ 
nauer hin, so erkennt man ein einge¬ 
bautes 3,5 Zoll-Laufwerk. Ja. aber da 
hatten wir ihn doch, den PCW 9512 
plus. Waren unsere Informationen also 
doch richtig - der Acht-Bit-Rechner ist 


noch nicht out. Die Technik des “Neu¬ 
en“ ist ganz so, wie wir es bereits in un¬ 
serem Vorab-Bericht in Heft 10/11'91 
(Seite 117) beschrieben haben. Also: in 
puncto Prozessor, Bildschirm, Tastatur 
und Arbeitsprinzip nichts Neues. Aber: 
ein neuer Tintenstrahldrucker, eine ver¬ 
änderte Gehäusearchitektur und natür¬ 
lich das “endlich kompatible“ Disket¬ 
tenformat mit 720 kByte auf 3,5 Zoll. 

Bei Amstrad wies man besonders auf 
das Preis-Leistungsverhältnis der neu¬ 
en PCWs hin — aha, die Zielgruppe 
dürfte also bei den wenig finanzkräfti¬ 
gen Schülern, Studenten und privaten 
Haushalten zu suchen sein. 

Immerhin liegt mit den PCWs ein wirk¬ 
lich ausgereiftes Computersystem vor. 
Jahrelange Arbeit von Soft- und Hard- 
ware-EntwicJdern hat sich bezahlt ge¬ 
macht. Die spezielle Locomotive-Soft- 
ware wird ständig weiterentwickelt. 
Eine Festplatte läßt sich nachrüsten, in 
den Plus sogar intern einbauen. Auch 
an Hardwarezusätzen für anspruchsvol¬ 
le Anwendungen fehlt es nicht. So ist es 
heute möglich, mit einem PCW — egal 
welcher Baureihe — Texte und Grafi¬ 
ken mit einem Komfort zu verarbeiten, 
der auf einem 8-Bit-System seinesglei¬ 
chen sucht. Bilder lassen sich einscan- 
nen, Grafiken in Texte einbinden und 
die fertigen Seiten direkt vom Compu¬ 
ter aus als Fax versenden. Was hat ein 
um ein Vielfaches teurerer High- 




$OUNI> CARO 
SPEAKERS JOVSTICK 
THREE TOP GAMES 


Links der PCW 9512+ mit Tintenstrahldrucker, rechts der Spiel-PC Amstrad PC5286 


Tech-PC in dieser Beziehung mehr zu 
bieten? 


Und der CPC? 

Nun zu einer etwas traurigeren Angele¬ 
genheit. Leider äußerte Amstrad auf 
der Messe auf unser Anfragen hin, daß 
sie keine Zukunft mehr für die CPC- 
Rechner sehen. Leider betrachtet man 
dort den CPC als reinen Spielcomputer. 
Daß dieses System auch noch zu mehr 
fähig ist, scheint Amstrad völlig ent¬ 
gangen zu sein. 

So wurde als Nachfolger der CPC- 
plus-Serie ein IBM-kompatibler “Spiel¬ 
PC“ vorgestellt. Dieser hat den Aufbau 
eines 80286-Rechners mit einem Me¬ 
gabyte RAM und verfügt über VGA- 
Farbgrafik. Eine serienmäßig einge- 
baute,"Ad Lib“ kompatible Soundkarte 
sowie zwei optisch äußerst unpassende 
Mini-Boxen im Eier-Look sorgen für 
musikalische Begleitung. Außerdem 
gibt es einen Joystick-Anschluß samt 
zugehörigem Joystick. Eine Festplatte 
ist eingebaut. Auf dieser werden mit 
dem Kauf des Geräts gleich einige Spie¬ 
le mitgeliefert, die sich dann nach dem 
Start sogleich über ein Menü auswählen 
lassen. 

Irgendwie kommt man dabei doch auf 
die Idee, daß Amstrad mit diesem 
Computer dem Amiga Konkurrenz ma¬ 
chen will. Nur: ob das mit dieser Aus¬ 
stattung und dem Preis von 800 Pfund 
(etwa 2400 DM) gelingt, scheint zu¬ 
mindest fraglich. Ein CPC erzeugt Un¬ 
wesentlich weniger Geld auch keine 
schlechteren Geräusche als die “Ad 
Lib“, und ob man zum Spielen wirklich 
einen IBM-kompatiblen Rechner mit 
all seinen teuren Kompromissen und 
System-Hintertürchen braucht, darf ge¬ 
trost bezweifelt werden. 

Wir bleiben trotz “Schlechtwetter¬ 
front“ dem CPC und dem PCW treu. 
Sie doch hoffentlich auch? 

jg 
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Programm 


RSX-Professional: eine gigantische BASIC 
Erweiterung mit Wumm 

Schaut man sich die für PC-Coniputer geschriebenen BASIC-Compiler 
an, muß man doch dem Locomotive-BASIC auf dem CPC so manche £ 
Mängel anhaften. Daß sich diese jedoch in Form neuer RSX- 
Routinen leicht beheben lassen, zeigt diese Bibliothek mit 35 Ja 

neuen Befehlen. Sie hilkdem BASIC-Interpreter des CPC 
in allen Lebenslage^ trickiteidi^nif die Sprünge. 











Programm 


Neben Befehlen zur Pull-Down- 
Menü-Programmierung enthält RSX- 
Professional mehrere Befehle zur Ver¬ 
waltung der zweiten 64 kByte des CPC 
6128. Aber auch das Arbeiten mit Spei¬ 
cherblöcken sowie Bildschirmaus¬ 
schnitten wird wesentlich vereinfacht. 
Alle Befehle, die auf den Bildschirm 
zugreifen unterstützen zudem die drei 
Modi des CPC. Aufgrund der vielen 
Speicherfunktionen läuft das Pro¬ 
gramm nur mit mindestens 128 kByte 
Speicher. Die selbst erstellten Pro¬ 
gramme sollten übrigens maximal sie¬ 
ben kByte groß sein, da es sonst zu 
Überschneidungen kommen kann. Als 
kleine Demonstration, daß auch mit 
nur sieben kByte wirklich gute Pro¬ 
gramme entwickelt werden können, 
sollten Sie sich die drei Demonstrations¬ 
programme anschauen, welche die 
Leistung von RSX-Professional gut 
aufzeigen. 

Pull-Down-Funktionen 

Kommen wir zuerst zu den Befehlen, 
die sich mit der Pull-Down-Menü-Pro- 
grammierung beschäftigen. 
OPENW/NDOW.X, Y,Brei¬ 
te, Höhe, "Dachzeile“, “ Fußzeile “ 

Diese Routine öffnet an der Position X, 
Y ein Fenster und speichert den über- 
schriebenen Bildschirminhalt an einer 
anderen Stelle im Speicher ab. Somit 
gehen beim Schließen des Fensters kei¬ 
ne wichtigen Bildschirminformationen 
verloren. Die hierzu übergebenden Pa¬ 
rameter müssen anhand des jeweiligen 
Textmodus errechnet werden. Wenn 
ein Fehler auftritt, sollte der Computer 
dies anzeigen. 

CL OSE WIND O W 

Schließt das zuletzt geöffnete Fenster 
oder Menü und holt den gesicherten 


Hintergrund wieder aus dem Speicher 
zurück. 

CLEARWINDOWS 

Beläßt alle geöffneten Fenster und Me¬ 
nüs auf dem Bildschirm, löscht jedoch 
alle gesicherten Hintergründe. 
GETMEM, Adresse 
Übergibt die Größe des noch freien 
Speicherplatzes, der für den Fenster¬ 
hintergrund reserviert wurde an die an¬ 
gegebene Adresse. 

Um die noch freie Speicherkapazität 
für den Hintergrund zu ermitteln, soll¬ 
ten Sie folgende Formel benutzen: 

X=PEEK(Adresse+l) 256+?EEK( Adresse) 

Hierbei muß Adresse jedoch keine Va¬ 
riable sein, sondern kann von Anfang 
an fest eingestellt werden. 

TEXT,X, Y, Text Stift, Text Hinter¬ 
grund, “Text“ 

Dieser Befehl ähnelt der PRINT-An- 
weisung von BASIC. Er wird jedoch 
schneller abgearbeitet und bietet die 
Möglichkeit, gleich die Koordinaten 
sowie die Stift- und Papier-Farben fest¬ 
zulegen. 

SETMODE,Modus 

Setzt den Grafikmodus fest, in dem alle 
Kommandos abgearbeitet werden sol¬ 
len. Wird als Parameter eine Drei über¬ 
geben, so wird automatisch der jeweils 
aktuelle Modus übernommen. 
SETBORDER, Stift, Hintergrund, 
Randart 

Wählt die Umrandungsart sowie die 
Farbe für den Stift (Pen) und den Hin¬ 
tergrund (Paper) aus. Sollte keine Um¬ 
randung erwünscht sein, geben Sie bei 
Randart einfach eine Null ein. Bei Ein¬ 
gabe von Eins wird die Umrandung 
durch eine Linie dargestellt und bei 
Eingabe von Drei erscheint ein Schach¬ 
brettmuster als Umrandung. 

NAME, Stift für oberen Titel, Unter¬ 
grund für oberen Titel 


SUBNAME, Stift, Untergrund 
Gleiche Funktion wie NAME , ledig¬ 
lich für den unteren Fenslerlitel. 
INSIDE, Hintergrundfarbe für Fenster 
DEFAULT 

Alle bisher geänderten Parameter wer¬ 
den wieder zurückgesetzt. 

MENU,“I. Option“, “2. Option“, ..., 
“letzte Option“, X, Y, “Überschrift“, 
“Untertitel“ 

Öffnet ein Auswahlfenster mit den an¬ 
gegebenen Optionen. Die Anzahl der 
Menüpunkte ist von drei bis 23 frei ein¬ 
stellbar. Auch hier wird der Hinter¬ 
grund gesichert. 

MENUONLY < gleiche Parameter wie 
bei der Funktion zuvor > 

Erfüllt die gleiche Funktion wie 
MENU , der Hintergrund wird jedoch 
nicht gesichert. 

LINEMENU, “1. Option “, “2. Op¬ 

tion “letzte Option “, Y 
Öffnet in der angegebenen Zeile ein 
Zeilenmenü. Der Hintergrund wird 
hierbei nicht gesichert. 

DELOPTION, Option 

Gibt an, welcher Menüpunkt gesperrt 

werden soll. 

PUTOPTION, Option 

Ein zuvor gesperrter Menüpunkt wird 

jetzt wieder freigegeben. 

RESETOP TION S 

Alle Menüpunkte werden wieder zur 
Auswahl freigegeben. 

TEXTCOLOR, MeniipunktStift, -hin- 
tergrund, Stift für Cursorbalken 
Setzt die Farben für ein Auswahlfen¬ 
ster. 

MENUCOMMANDS, Links, Rechts, 
Hoch, Runtern, Auswahl, Menü 
schließen 

Gibt an, mit welchen Tasten die ge¬ 
nannten Funktionen ausgeführt wer¬ 
den. Hier müssen Sie die ASClI-Codes 
eingeben. Als Default werte wurden die 


Btt Professiona. Rtt Prsfessiii - Iiwiorstr-Uion ~ Rtt Professional 
Btt Profess j or^. 1 Btt mhaiti Rtt Professional 

Btt Professional Btt rrcfessio RS* Professional Btt Professional 
Btt Professional Btt Professio Rtt Professional 

Btt Professional RS ’f Profession Press any key — Rtt Professional 


RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 


Profess 
Prof ess 
Profess 
Profess 
Profess 
Profess 
Prof ess 
Prof ess 
Profess 
Prof ess 
Prof ess 
Prof ess 


i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 
i ona 1 


RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 

RSX 


Prof essiona1 
Prof essiona1 
Prof ess i ona1 
Prof essiona1 
Prof es siona1 
Prof essiona1 
Profes siona1 
Pro f e s siona1 
Prof essiona1 
Prof ess i ona1 
Prof es s i ona1 
Prof e s s l ona 1 


Ft SX 
Ft SX 
Ft SX 
Ft SX 
Ft SX 


I' r o Jf e s s io rk ä 1 
l ' r o f e S- S » OVTnE* 1 
* ’ r oPess i on^ 1 
I' r- o P e s s i X 

Pr o Pess i ooa X 



Inlroductien 


:hii itefionslrstsOT im »ad< 

to 5k« viu ho« easy vc-u ceuli 

apply Btt Profesiioiut us»r ; | 
iniy.Basje cmwandi and stil 
Ivivinj an aisolutelg profes- 
-.lcnal screen display, 

fiuthor 


Die Befehlserweiterung RSX-Professional kann in allen drei Bildschirmmo¬ 
di gleichzeitig arbeiten. 


Wird der Befehl CLOSEWINDOW nun angewandt, wird das Fenster ge¬ 
schlossen und der ursprüngliche Hintergrund erscheint wieder. 
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Programm 


Cursortasten, sowie BNTER und ESC 
voreingestellt. 

Die Interruptverwaltung 

SETINTERRUPT, erste Adresse, zwei¬ 
te Adresse, ... 

Legt eine beliebige Anzahl von Ma¬ 
schinencode-Programmen fest, die in 
der angegebenen Reihenfolge aufgeru¬ 
fen werden sollen. Diese Programme 
sollten an einer beliebigen Adresse ste¬ 
hen und werden nacheinander abgear¬ 
beitet. 

Sie müssen die Register nicht selbstän¬ 
dig mittels PUSH und POP sichern. 
Lediglich sollten Sie beachten, daß die 
Programme nie länger als 1/300 Se¬ 
kunde dauern und auf jeden Fall mit ei¬ 
nem RET abgeschlossen sind. 
FASTINTERRUPT 

Selektiert den Interrupt, der 300 mal 
innerhalb einer Sekunde aufgerufen 
werden soll. 

SLOWINTERRUPT 

Selektiert einen Interrupt, der fünfzig 

mal pro Sekunde ausgeführt werden 

soll. 

INTERRUPTOEF 

Schaltet den gewählten Interrupt aus. 

Eine RAM-Disk muß her 

Als kleinen Bonus für all die, die die 
zweiten 64 kByte anderweitig verwen¬ 
den möchten, bietet RSX-Professionell 
noch einige Befehle zur Verwaltung ei¬ 
ner RAM-Disk mit beliebiger Größe. 
RAM DISK, Größe 

Erstellt eine RAM-Disk mit einer in 


kßytes anzugebenden Größe. Maximal 
sollten Sie sich jedoch auf 62 kßytes 
beschränken. 

RAMDISKOFE 

Schaltet die RAM-Disk ab. Alle Befeh¬ 
le um die RAM-Disk werden jetzt nicht 
mehr ausgeführt und brechen mit einer 
Fehlermeldung ab. 

SA VE,“na me“, Startadresse, Länge 
Sichert einen bestimmten Speicherbe¬ 
reich auf der RAM-Disk. Der Name 
der Datei kann maximal zehn Buchsta¬ 
ben lang sein. Ebenfalls wird eine 
Unterscheidung zwischen Klein- und 
Großschreibung vorgenommen. 

LOAD, “Name“, Startadresse 
Lädt eine zuvor auf der RAM-Disk ge¬ 
sicherte Datei an die angegebene Start¬ 
adresse im Speicher. Wird keine Start¬ 
adresse an gegeben, wird die beim Ab¬ 
speichern angegebene benutzt. 

DELFTE, “Name“ 

Löscht eine Datei von der RAM-Disk. 
Wenn ein x angegeben wurde, werden 
alle Dateien gelöscht. 

RENA ME, “Neu“, “All“ 

Benennt eine Datei um. 

CAT 

Zeigt das Inhaltsverzeichnis der RAM- 
Disk auf dem Bildschirm an. 

Speichermanipulationen 

LDIR, Originaladresse, Neue Adresse, 
Länge 

Kopiert einen Speicherbereich mit be¬ 
liebiger Länge an eine neue Adresse. 
LDDR 

Dieser Befehl wird mit den gleichen 
Parametern wie zuvor aufgerufen. 


Weitere Informationen hierzu entneh¬ 
men Sie bitte eventuell vorhandener Li¬ 
teratur zum Thema Maschinensprache. 

FILL, Füllbyte, Anfangsadresse, 
Blocklänge 

Füllt einen Speicherblock mit dem vor¬ 
zugebendem Füllbyte. 

GETIMAGE, X, Y, Breite, Höhe, 
Adresse 

Kopiert einen Teil des Bildschirms 
(Sprite) an eine bestimmte Adresse im 
Speicher. X und Y sind hierbei Byte- 
Werte (60 200). Die Gesamtlänge des 
Sprites im Speicher entspricht XxY +2. 

PUTIMAGE, Modus, X, Y, Adresse 
Nimmt ein Sprite aus dem Speicher und 
bringt es an der angegebenen Position 
auf den Bildschirm. Bei Modus können 
Sie einen Wert von Null bis Drei ein¬ 
tragen. 

Null benutzt keinerlei logischen Funk¬ 
tionen und bringt das Sprite wie im 
Original auf den Bildschirm. 

Eins benutzt die OR-Anweisung. Wenn 
schon ein Punkt gesetzt ist, oder wenn 
ein Punkt gesetzt werden soll, bleibt 
der Punkt bestehen oder wird gesetzt. 

Zwei benutzt die AND-Anweisung. 
Wenn an der entsprechenden Position 
schon ein Punkt gesetzt ist und ein 
Punkt gesetzt werden soll, nur dann 
bleibt der Punkt bestehen. 

Drei benutzt die XOR-Anweisung. Es 
darf nur eine Bedingung wahr sein. Ist 
ein Punkt gesetzt oder soll ein Punkt 
gesetzt werden, so wird er auch gesetzt. 

Damir Petkovic/rs 


{703] 

[1143] 

[2092] 


10 'RSXPRO.BAS 

20 'Installiert die Basicerweiterung 
30 '(c) 1991 Damir Petkovic & CPC Internat 
ional 

40 INK 2,15:INK 0,26:INK 1,0:BORDER 26:MOD [2181] 

p 2 

50 MEMORY &87FF 
60 LOAD" ! rsxp.ro . bin" , &8800 
70 CALL &8800 

80 j^OPENWINDOW, 23,7,33,11,""," Press any k 


[738] 
[1561] 
[485] 
[2613 ] 


ey 

90 ITEXT,31,9,1,0,"RSX Professional" 

100 ITEXT,26,11,1,0,"This program was orig 
inally" , 

110 ITEXT,27,12,l,0,"(c) 1991 Damir Petkov 

ic<» 

120 |TEXT,26,15,1,0," & CPC International 

130 CALL &BB06 

140 |CLOSEWINDOW:NEW 


[3328] 
[4187] 

[1857] 

[ 2487] 

[393] 

[1190] 


1000 'RSXPRO. LAD |>86] 

1001 'Generiert RSXPRO.BIN 2259] 

1002 '(c) 1991 Damir Petkovic & CPC Intern [2092] 
ational 


1003 MEMORY &87FF 

1004 FOR adr=&8800 TO &A01D STEP 8 

1005 FOR i=adr TO adr+ 7 

1006 READ b$ 

1007 byte=VAL("&"+b$) 

1008 poke i,byte 

1009 NEXT i 

1010 NEXT adr 

1011 SAVE"rsxpro.bin",b,&8800,&181D 

1012 END 

1013 DATA AF,CD,IE,9C,AF,CD,36,8D 

1014 DATA 21,A2,89,01,11,88,C3,Dl 

1015 DATA BC,82,88,C3,6F,91,C3,6A 

1016 DATA 93,C3,F4,93,C3,FB,93,C3 

1017 DATA 1A,94,C3,36,8D,C3,8A,8D 

1018 DATA C3,98,8D,C3,B6,8D,C3,CC 

1019 DATA 8D,C3,E2,8D,C3,68,95,C3 

1020 DATA 62,95,C3,8D,94,C3,20,98 

1021 DATA C3,B9,94,C3,B3,94,C3,7C 

1022 DATA 8D,C3,E2,94,C3,13,95,C3 

1023 DATA 50,97,C3,AE,97,C3,B9,97 

1024 DATA C 3,0 7,98,C3,12,9A,C3,1D 

1025 DATA 9A,C3,28,9A,C3,6A,9A,C3 

1026 DATA CB,9A,C3,40,9C,C3,3B,9D 

1027 DATA C3,26,9E,C3,CD,9E,C3,66 

1028 DATA 9F,C3,03,A0,C3,BB,9B,C3 

1029 DATA 1E, 9C, 4F, 50 / 45,4E,5,7,49 

1030 DATA 4E,44,4F,D7,43,4C,4F,53 

1031 DATA 45,57,49,4E,44,4F,D7,43 

1032 DATA 4C,45,41,52,57,49,4E,44 

1033 DATA 4F,57,D3,47,45,54,4D,45 

1034 DATA CD,54,45,58,D4,44,45,46 

1035 DATA 41,55,4C,D4,53,45,54,4D 

1036 DATA 4F,44,C5,53,45,54,42,4F 
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1037 DATA 52,44,45,D2,4E,41,4D,C5 

1038 DATA 53,55,42,4E,41,4D,C5,49 

1039 DATA 4E,53,49,44,C5,4D,45,4E 

1040 DATA D5,4D,45,4E,55,4F,4E,4C 

1041 DATA D9,4D,45,4E,55,49,4E,50 

1042 DATA 55,D4,4C,49,4E,45,4D,45 

1043 DATA 4E,D5,44,45,4C,4F,50,54 

1044 DATA 49,4F,CE,50,55,54,4F,50 

1045 DATA 54,49,4F,CE,52,45,53,45 

1046 DATA 54,4F,50,54,49,4F,4E,D3 

1047 DATA 54,45,58,54,43,4F,4C,4F 

1048 DATA D2,4D,45,4E,55,43,4F,4D 

1049 DATA 4D,41,4E,44,D3,53,45,54 

1050 DATA 49,4E,54,45,52,52,55,50 

1051 DATA D4,46,41,53,54,49,4E,54 

1052 DATA 45,52,52,55,50,D4,53,4C 

1053 DATA 4F,57,49,4E,54,45,52,52 

1054 DATA 55,50,D4,49,4E,54,45,52 

1055 DATA 52,55,50,54,4F,46,C6,4C 

1056 DATA 44,49,D2,4C,44,44,D2,46 

1057 DATA 49,4C,CC,47,45,54,49,4D 

1058 DATA 41,47,C5,50,55,54,49,4D 

1059 DATA 41,47,C5,53,41,56,C5,4C 

1060 DATA 4F,41,C4,44,45,4C,45,54 

1061 DATA C5,52,45,4E,41,4D,C5,43 

1062 DATA 41,D4,43,41,54,4D,45,CD 

1063 DATA 52,41,4D,44,49,53,CB,52 

1064 DATA 41,4D,44,49,53,4B,4F,46 

1065 DATA C6,00,00,00,00,00,00,00 

1066 DATA 00,00,00,00,00,00,00,00 

1067 DATA 00,00,00,00,00,00,00,00 

1068 DATA 00,00,00,00,00,00,00,00 

1069 DATA 00,00,00,00,00,00,00,00 

1070 DATA 00,00,00,00,00,00,00,00 

1071 DATA 00,00,00,00,00,00,00,00 

1072 DATA 03,00,01,02,00,01,00,01 

1073 DATA 00,00,00,00,00,00,00,00 

1074 DATA 00,00,00,00,00,00,00,00 

1075 DATA 00,00,00,00,00,00,00,00 

1076 DATA 00,00,00,DA,8E,1D,8F,87 

1077 DATA 8F,00,00,00,00,00,00,00 

1078 DATA 00,00,00,00,00,00,00,00 

1079 DATA 00,00,00,00,00,00,00,00 

1080 DATA 00,00,00,4E,6F,20,6E,61 

1081 DATA 6D,65,0D,0A,52,41,4D,44 

1082 DATA 49,53,4B,20,20,63,61,74 

1083 DATA 61,6C,6F,67,75,65,00,OA 

1084 DATA OA,20,20,4B,20,66,72,65 

1085 DATA 65,OD,OA,OA,00,00,00,00 

1086 DATA 00,00,00,00,00,00,00,00 

1087 DATA 00,00,00,00,00,00,00,00 

1088 DATA 00,00,00,00,00,00,00,00 

1089 DATA 00,00,00,00,00,00,00,00 

1090 DATA 00,00,00,00,00,00,00,00 

1091 DATA 00,00,00,00,00,00,00,00 

1092 DATA 00,00,00,00,00,00,00,00 

1093 DATA 50,72,6F,67,72,61,6D,6D 

1094 DATA 65,64,20,62,79,20,44,61 

1095 DATA 6D,69,72,20,50,65,74,6B 

1096 DATA 6F,76,69,63,20,6F,6E,20 

1097 DATA 32,38,2E,30,38,2E,31,39 

1098 DATA 39,30,2E,00,00,00,00,00 

1099 DATA 00,00,00,00,00,00,00,00 

1100 DATA 00,00,00,00,00,00,00,00 

1101 DATA 00,00,00,00,00,00,00,00 

1102 DATA 00,00,00,00,00,00,00,00 

1103 DATA 00,00,00,00,00,00,00,00 

1104 DATA 00,00,00,00,00,00,00,00 

1105 DATA 00,00,00,00,00,00,00,00 

1106 DATA 00,00,00,00,00,00,00,00 

1107 DATA 00,00,00,00,00,00,00,00 

1108 DATA 00,00,00,00,00,00,00,00 

1109 DATA 00,00,00,1F,1F,18,18,18 

1110 DATA 00,00,00,F8,F8,18,18,18 

1111 DATA 18,18,18,1F,1F,00,00,00 

1112 DATA 18,18,18,F8,F8,00,00,00 

1113 DATA 18,18,18,18,18,18,18,18 

1114 DATA 00,00,00,FF,FF,00,00,00 

1115 DATA 00,00,3F,20,20,27,24,24 

1116 DATA 00,00,FC,04,04,E4,24,24 

1117 DATA 24,24,27,20,20,3F,00,00 

1118 DATA 24,24,E4,04,04,FC,00,00 

1119 DATA 24,24,24,24,24,24,24,24 

1120 DATA 00,00,FF,00,00,FF,00,00 

1121 DATA AA,55,AA,55,AA,55,AA,5 5 

1122 DATA 00,00,00,00,00,00,00,00 

1123 DATA 2D,2D,2D,2D,2D,2D,20,21 

1124 DATA 22,23,24,25,26,27,28,29 

1125 DATA 2A,2B,2C,2C,2C,2C,2C,2C 

1126 DATA 00,00,00,00,00,00,00,00 

1127 DATA 00,CO,OC,CC,30,FO,3C,FC 

1128 DATA 03,C3,OF,CF,33,F3,3F,FF 

1129 DATA 00,F0,0F,FF,00,F0,0F,FF 

1130 DATA 00,F0,0F,FF,00,F0,0F,FF 

1131 DATA 00,FF,00,FF,00,FF,00,FF 

1132 DATA 00,FF,00,FF,00,FF,00,FF 

1133 DATA 07,45,72,72,6F,72,20,69 
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1134 DATA 6E,20,70,61,72,61,6D,65 

1135 DATA 74,65,72,73,20,21,00,07 

1136 DATA 54,6F,6F,20,6D,61,6E,79 

1137 DATA 20,77,69,6E,64,6F,77,73 

1138 DATA 20,21,00,07,4E,6F,20,77 

1139 DATA 69,6E,64,6F,77,73,20,6F 

1140 DATA 70,65,6E,20,21,00,07,57 

1141 DATA 69,6E,64,6F,77,20,74,69 

1142 DATA 74,6C,65,20,74,6F,6F,20 

1143 DATA 6C,6F,6E,67,20,21,00,07 

1144 DATA 57,69,6E,64,6F,77,20,73 

1145 DATA 75,62,2D,74,69,74,6C,65 

1146 DATA 20,74,6F,6F,20,6C,6F,6E 

1147 DATA 67,20,21,00,07,57,69,6E 

1148 DATA 64,6F,77,20,6F,75,74,20 

1149 DATA 6F,66,20,73,63,72,65,65 

1150 DATA 6E,20,21,00,07,4F,6E,65 

1151 DATA 20,69,6E,74,65,72,72,75 

1152 DATA 70,74,20,69,73,20,61,6C 

1153 DATA 72,65,61,64,79,20,4F,4E 

1154 DATA 20,21,00,07,49,6E,74,65 

1155 DATA 72,72,75,70,74,20,72,6F 

1156 DATA 75,74,69,6E,65,20,4D,55 

1157 DATA 53,54,2Ö,4E,4F,54,20,62 

1158 DATA 65,20,69,6E,20,72,61,6E 

1159 DATA 67,65,20,62,65,74,77,65 

1160 DATA 65,6E,20,26,34,30,30,30 

1161 DATA 20,61,6E,64,20,26,38,30 

1162 DATA 30,30,20,21,00,07,46,69 

1163 DATA 6C,65,6E,61,6D,65,20,74 

1164 DATA 6F,6F,20,6C,6F,6E,67,20 

1165 DATA 21,00,07,46,69,6C,65,20 

1166 DATA 61,6C,72,65,61,64,79,20 

1167 DATA 65,78,69,73,74,73,20,21 

1168 DATA 00,07,52,41,40,44,49,53 

1169 DATA 4B,20,66,75,6C,6C,20,21 

1170 DATA 00,07,46,69,6C,65,20,6E 

1171 DATA 6F,74,20,66,6F,75,6E,64 

1172 DATA 20,21,00,07,52,41,4D,44 

1173 DATA 49,53,4B,20,6E,6F,74,20 

1174 DATA 72,65,61,64,79,20,21,00 

1175 DATA 07,4C,49,4E,45,20,4D,45 

1176 DATA 4E,55,20,74,6F,6F,20,6C 

1177 DATA 6F,6E,67,20,21,00,21,FF 

1178 DATA FF,22,A9,89,21,00,00,22 

1179 DATA A7,89,22,B2,89,C9,B7,C2 

1180 DATA B8,8E,21,D8,89,11,El,89 

1181 DATA 01,09,00,ED,BO,AF,CD,07 

1182 DATA 98,AF,32,BD,89,3C,32,BC 

1183 DATA 89,32,B8,89,C6,02,32,BE 

1184 DATA 89,21,00,BF,22,B9,89,36 

1185 DATA 00,3E,FC,32,63,96,3E,0D 

1186 DATA 32,72,96,3E,F0,32,77,96 

1187 DATA 3C,32,7C,96,3C,32,68,96 

1188 DATA 3C,32,6D,96,21,E8,8A,11 

1189 DATA E9,8A,01,16,00,36,00,ED 

1190 DATA BO,C9,FE,01,C2,B8,8E,DD 

1191 DATA 7E,00,E6,03,32,E1,89,C9 

1192 DATA FE,03,C2,B8,8E,DD,7E,00 

1193 DATA E6,03,32,E4,89,DD,7E,02 

1194 DATA E6,0F,32,E3,89,DD,7E,04 

1195 DATA E6,0F,32,E2,89,C9,FE,02 

1196 DATA C2,B8,8E,DD,7E,00,E6,0F 

1197 DATA 32,E6,89,DD,7E,02,E6,0F 

1198 DATA 32,E5,89,C9,FE,02,C2,B8 

1199 DATA 8E,DD,7E,00,E6,OF,32,E8 

1200 DATA 89,DD,7E,02,E6,0F,32,E7 

1201 DATA 89,C9,FE,01,C2,B8,8E,DD 

1202 DATA 7E,00,E6,0F,32,E9,89,C9 

1203 DATA CD,06,B9,El,11,88,8B,01 

1204 DATA 08,00,ED,BO,CD,09,B9,00 

1205 DATA 00,00,El,11,88,8B,01,08 

1206 DATA 00,ED,BO,00,00,00,3A,A6 

1207 DATA 89,47,B7,3E,14,C8,87,10 

1208 DATA FD,C9,3A,Ä6,89,B7,47,3E 

1209 DATA 04,C8,CB,3F,10,FC,C9,CD 

1210 DATA 1A,8E,47,AF,86,10,FD,C9 

1211 DATA 21,AE,89,CD,27,8E,6F,26 

1212 DATA 00,E5,3A,AF,89,47,21,00 

1213 DATA 00,11,50,00,B7,28,03,19 

1214 DATA 10,FD,Dl,19,11,00,CO,19 

1215 DATA C9,7A,E6,C0,07,07,F6,C4 

1216 DATA 06,7F,4F,ED,49,CB,BA,CB 

1217 DATA F2,C9,2A,A7,89,06,06,2B 

1218 DATA 10,FD,22,A7,89,21,D7,8B 

1219 DATA 18,49,21,EB,8B,18,44,21 

1220 DATA FE,8B,18,3F,21,17,8C,18 

1221 DATA 3A,21,34,8C,18,35,21,4C 

1222 DATA 8C,18,30,21,6B,8C,18,2B 

1223 DATA 21,AD,8C,18,26,01,CO,7F 

1224 DATA ED,49,21,C2,8C,18,IC,21 

1225 DATA D9,8C,18,17,01,CO,7F,ED 

1226 DATA 49,21,E9,8C,18,OD,21,FB 

1227 DATA 8C,18,08,21,10,8D,18,03 

1228 DATA 21,CO,8B,7E,B7,C8,CD,5A 

1229 DATA BB,23,18,F7,F5,3A,A6,89 

1230 DATA 87,87,87,87,6F,26,00,11 
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[1828] 
[1253] 
[467 ] 
[1558] 
[1219] 
[ 1211 ] 
[1688] 
[1175] 
[903] 
[994] 
[1034] 
[1146] 
[1302] 
[1138] 
[2089] 
[1482] 
[1778] 
[1494 ] 
[775] 
[1248] 
[612] 
[829] 
[1318] 
[1095] 
[1806] 
[1499] 
[ 1222 ] 
[1618] 
[819] 
[1503] 
[1952] 
[1432] 
[1313] 
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Programm 


1231 DATA 90,8B,19,Fl,5F,16,00,19 

1232 DATA 7E,C9,3E,08,F5,E5,3E,7F 

1233 DATA 32,ED,8E,3E,77,32,F7,8E 

1234 DATA 3E,04,F5,1A,CB,7F f 79,20 

1235 DATA 01,78,E6,AA,77,1A,CB,77 

1236 DATA 79,20,01,78,E6,55,B6,77 

1237 DATA 3A,ED,8E,D6,10,32,ED,8E 

1238 DATA D6,08,32,F7,8E,23,Fl,3D 

1239 DATA 20,D8,13,El,7C,C6,08,67 

1240 DATA F1,3D,20,CO,C9,3E,08,F5 

1241 DATA E5,3E,7F,32,3A,8F,3E,77 

1242 DATA 32,44,8F ; 3E,6F,32,4F,8F 

1243 DATA 3E,67,32,5A,8F,3E,02,F5 

1244 DATA 1A,CB,7F,79,20,01,78,E6 

1245 DATA 88,77,1A,CB,77,79,20,01 

1246 DATA 78,E6,44,B6,77,1A,CB,6F 

1247 DATA 79,20,01,78,E6,22,B6,77 

1248 DATA 1Ä,CB,67,79,20,01,78,E6 

1249 DATA 11,B6,77,3E,5F,32,3A,8F 

1250 DATA 3E,57,32,44,8F,3E,4F,32 

1251 DATA 4F,8F,3E,47,32,5A,8F,23 

1252 DATA Fl,3Ö,20 f BB,13,El,7C,C6 

1253 DATA 08,67,Fl,3D,20,99,C9,79 

1254 DATA EE,FF,32,91,8F,06,08,1A 

1255 DATA EE,00,77,3E,08,84,67,13 

1256 DATA 10,F5,C9,E5,3A,A6,89,87 

1257 DATA 5F,16,00,21,FB,89,19,5E 

1258 DATA 23,56,ED,53,F0,8F,2A,AE 

1259 DATA 89,E5,ED,43,AE,89,CD,30 

1260 DATA 8E,Dl,ED,53,AE,89,Dl,EB 

1261 DATA 7E,B7,C8,E5,D6,20,6F,26 

1262 DATA 00,29,29,29,ED,4B,Fl,89 

1263 DATA 09,D5,E5,CD,06,B9,El,11 

1264 DATA 88,8B,01,08,00,ED,BO,CD 

1265 DATA 09,B9,3A,B4,89,47,3A,B5 

1266 DATA 89,4F,El,11,88,8B,E5,CD 

1267 DATA DA,8E,CD,1A,8E,Dl,6F,26 

1268 DATA 00,19,EB,El,23,18,CI,21 

1269 DATA F5,89,22,28,91,22,08,91 

1270 DATA 21,F7,89,22,05,91,21,EA 

1271 DATA 89,22,19,91,21,EB,89,22 

1272 DATA 1F,91,AF,32,Dl,90,3C,32 

1273 DATA E3,90,CD,AF,90,2A,Fl,89 

1274 DATA 22,F3,89,21,00,8B,22,Fl 

1275 DATA 89,DD,7E,04,21,97,8A,77 

1276 DATA 23,36,00,2B,3A,Bl,89,D6 

1277 DATA 02,ED,4B,AE,89,04,E5,C5 

1278 DATA F5,CD,9B,8F,Fl,CI,El,04 

1279 DATA 3D,20,F3,3A,BO,89,3D,ED 

1280 DATA 4B,AE,89,81,4F,04,3A,Bl 

1281 DATA 89,D6,02,E5,C5,F5,CD,9B 

1282 DATA 8F,Fl,CI,El,04,3D,20,F3 

1283 DATA 2A,F3,89,22,Fl,89,2A,AE 

1284 DATA 89,E5,3A,Bl,89,3D,84,67 

1285 DATA 22,AE,89,21,F6,89,22,28 

1286 DATA 91,22,08,91,21,F9,89,22 

1287 DATA 05,91,21,EC,89,22,19,91 

1288 DATA 21,ED,89,22,1F,91,3E,02 

1289 DATA 32,Dl,90,3C,32,E3,90,CD 

1290 DATA AF,90,El,22,AE,89,C9,3A 

1291 DATA EE,89,32,B5,89,3A,EF,89 

1292 DATA 32,B4,89,3A,FO,89,47,87 

1293 DATA 80,87,6F,26,00,11,70,8B 

1294 DATA 19,E5,DD,El,21,97,8A,DD 

1295 DATA 7E , 00,77,23,3A,BO,89,D6 

1296 DATA 02,47,DD,7E,05,77,23,10 

1297 DATA FC,DD,7E,01,77,23,36,00 

1298 DATA 2A,Fl,89,22,F3,89,21,00 

1299 DATA 8B,22,Fl,89,ED,4B,AE,89 

1300 DATA 21,97,8A,CD,9B,8F,2A,F3 

1301 DATA 89,22,Fl,89,2A,F7,89,3A 

1302 DATA F5,89,B7,28,2C,4F,06,00 

1303 DATA 11,97,8A,ED,BO,EB,36,00 

1304 DATA 3A,EA,89,32,B5,89,3A,EB 

1305 DATA 89,32,B4,89,3A,BO,89,21 

1306 DATA F5,89,96,CB,3F,ED,4B,AE 

1307 DATA 89,81,4F,21,97,8A,CD,9B 

1308 DATA 8F,3A,EE,89,32,B5,89,3A 

1309 DATA EF,89,32,B4,89,C9,FE,03 

1310 DATA D4,11,BC,32,A6,89,3E,20 

1311 DATA CD,A5,BB,E5,21,FO,8D,30 

1312 DATA 03,21,FF,8D,11,D3,8F,01 

1313 DATA OF,00,ED,BO,El,22,Fl,89 

1314 DATA CD,OE,8E,32,AD,89,C9,FE 

1315 DATA 06,C2,B8,8E,3A,E1,89,CD 

1316 DATA 46,91,3E,03,DD,CB,04,7E 

1317 DATA C2,B8,8E,DD,BE,04,D2,B8 

1318 DATA 8E,DD,CB,06,7E,C2,B8,8E 

1319 DATA DD,BE,06,D2,B8,8E,AF,DD 

1320 DATA BE,05,C2,B8,8E,DD,BE,07 

1321 DATA C2,B8,8E,DD,BE,09,C2,81 

1322 DATA 8E,DD,BE,OB,C2,81,8E,DD 

1323 DATA 6E,02,DD,66,03,DD,7E,06 

1324 DATA BE,DA,77,8E,7E,32,F5,89 

1325 DATA 23,5E,23,56,ED,53,F7,89 

1326 DATA DD,6E,00,DD,66,01,DD,7E 

1327 DATA 06,BE,DA,7C,8E,7E,32,F6 


[1153] 

[1505] 

[852] 

[1376] 

[1080] 

[1160] 

[1759] 

[1293] 

[1307] 

[1404] 

[1370] 

[1536] 

[1368] 

[2005] 

[1495] 

[469] 

[1311] 

[1483] 

[1280] 
[766] 
[1517] 
[1687] 
[1418] 
[844] 
[749 ] 
[1723] 
[1537] 
[1242] 
[2064] 
[1596] 
[1621] 
[887 ] 
[1339] 
[2018] 
[989] 
[1019] 
[1147] 
[1478] 
[1338] 
[1476] 
[615] 
[742 ] 
[654] 
(897 ] 
[1540] 
[1630] 
[2074] 
[1876] 
[1931] 
[2308] 
[1017] 
[1239] 
[1385] 
[1415] 
[1560] 
[1939] 
[1272] 
[1527] 
[1326] 
[1401] 
[1147 ] 
[1364] 

[669] 
[1528] 
[1270] 
[1307] 
[1261] 
[1429] 
[1073] 
[963] 
[682] 
[ 1102 ] 
[1487] 
[1402 ] 
[852] 
[2073] 
[847] 
[1213] 
[1113] 
[1275] 
[1294] 
[1290] 
[1361] 
[1493] 
[1323] 
[601] 
[558] 
[1038] 
[2030 ] 
[1717 ] 
[635] 

[670] 
[951] 
[1360] 
[1457 ] 
[1477] 
[1741] 


1328 DATA 89,23,5E,23,56,ED,53,F9 

1329 DATA 89,21,AD,89,DD,7E,OA,BE 

1330 DATA D2,81,OE,DD,7E,06,3D,BE 

1331 DATA D2,81,8E,DD,86,0A,BE,D2 

1332 DATA 81,8E,DD,7E,08,FE,19,D2 

1333 DATA 81,8E,DD,7E,04,3D,FE,19 

1334 DATA D2,81,8E,DD,86,08,FE,19 

1335 DATA D2,81,8E,DD,7E,04,32,Bl 

1336 DATA 89,DD,7E,06,32,BO,89,DD 

1337 DATA 7E,08,32,AF,89,DD,7E,OA 

1338 DATA 32,AE,89,21,BO,89,CD,27 

1339 DATA 8E,32,AC,89,ED,5B,A7,89 

1340 DATA 01,C4,7F,ED,49,CB,F2,D5 

1341 DATA CD,30,8E,EB,El,73,23,72 

1342 DATA 23,3A,AC,89,77,23,3A,Bl 

1343 DATA 89,87,87,87,77,23,ED,SB 

1344 DATA A9,89,73,23,72,23,CB,B4 

1345 DATA 22,A7,89,01,C0,7F,ED,49 

1346 DATA 5F,16,00,6A,62,3A,AC,89 

1347 DATA 47,19,10,FD,EB,2A,A9,89 

1348 DATA A7,ED,52,DA,62,8E,3A,A8 

1349 DATA 89,4F,7C,B9,DA,62,8E,20 

1350 DATA 07,3A,A7,89,BD,D2,62,8E 

1351 DATA 22,A9,89,23,E5,CD,30,8E 

1352 DATA Dl,CD,51,8E,32,AB,89,3A 

1353 DATA Bl,89,87,87,87,47,C5,E5 

1354 DATA 3A,AC,89,ED,AO,CB,7A,20 

1355 DATA 18,3D,20,F7,El,01,00,08 

1356 DATA 09,30,04,01,50,CO,09,CI 

1357 DATA 10,E4,01,C0,7F,ED,49,18 

1358 DATA 14,F5,3A,AB,89,3C,32,AB 

1359 DATA 89,4F,06,7F,ED,49,CB,BA 

1360 DATA CB,F2,Fl,18,D4,3A,E7,89 

1361 DATA CD,C4,8E,32,EC,89,3A,E8 

1362 DATA 89,CD,C4,8E,32,ED,89,3A 

1363 DATA E5,89,CD,C4,8E,32,EA,89 

1364 DATA 3A,E6,89,CD,C4,8E,32,EB 

1365 DATA 89,3A,E4,89,32,FO,89,3A 

1366 DATA E9,89,CD,C4,8E,32,4C,93 

1367 DATA 3A,E2,89,CD,C4,8E,32,EE 

1368 DATA 89,3A,E3,89,CD,C4,8E,32 

1369 DATA EF,89,CD,FF,8F,21,AE,89 

1370 DATA 34,23,34,CD,30,8E,E5,21 

1371 DATA BO,89,35,35,CD,27,8E,32 

1372 DATA 48,93,3A,Bl,89,D6,02,87 

1373 DATA 87,87,El,E5,5D,54,13,01 

1374 DATA 00,00,OB,36,00,ED,BO,El 

1375 DATA 01,00,08,09,30,04,01,50 

1376 DATA CO,09,3D,20,E6,2A,B2,89 

1377 DATA 23,22 ,B2,89,3E,FF,32,BF 

1378 DATA 89,C9,B7,C2,B8,8E,2A,B2 

1379 DATA 89,7D,B4,CA,72,8E,2B,22 

1380 DATA B2,89,01,C4,7F,ED,49,2A 

1381 DATA A7,89,CB,F4,2B,56,2B,5E 

1382 DATA 2B,ED,53,A9,89,13,7E,32 

1383 DATA BD,93,47,2B,7E,32,CI,93 

1384 DATA 2B,E5,D5,5F,16,00,21,00 

1385 DATA 00,19,10,FD,EB,El,A7,ED 

1386 DATA 52,Dl,E5,EB,56,2B,5E,CB 

1387 DATA B4,22,A7,89,EB,Dl,CD,51 

1388 DATA 8E,32,AB,89,06,00,C5,E5 

1389 DATA 06,00,1A,77,23,13,CB,7A 

1390 DATA 20,16,10,F6,El,01,00,08 

1391 DATA 09,30,04,01,50,CO,09,CI 

1392 DATA 10,E4,01,CO,7F,ED,49,C9 

1393 DATA C5,3A,AB,89,3C,32,AB,89 

1394 DATA 4F,06,7F,ED,49,CB,BA,CB 

1395 DATA F2,CI,18,D6,B7,C2,B8,8E 

1396 DATA C3,26,8D,3D,C2,B8,8E,2A 

1397 DATA A9,89,23,ED,5B,A7,89,06 

1398 DATA 06,13,10,FD,A7,ED,52,EB 

1399 DATA DD,6E,00,DD,66,01,73,23 

1400 DATA 72,C9,FE,05,C2,B8,8E,3A 

1401 DATA El,89,CD,46,91,21,AD,89 

1402 DATA DD,7E,08,BE,D2,B8,8E,DD 

1403 DATA 7E,06,FE,19,D2,B8,8E,AF 

1404 DATA DD,BE,09,C2,B8,8E,DD,BE 

1405 DATA 07,C2,B8,8E,DD,6E,00,DD 

1406 DATA 66,01,7E,DD,86,08,21,AD 

1407 DATA 89,BE,D2,B8,8E,DD,6E,00 

1408 DATA DD,66,01,4E,23,5E,23,56 

1409 DATA EB,06,00,11,97,8A,ED,BO 

1410 DATA EB,36,00,DD,7E,02,E6,0F 

1411 DATA CD,C4,8E,32,B4,89,DD,7E 

1412 DATA 04,E6,0F,CD,C4,8E,32,B5 

1413 DATA 89,DD,46,06,DD,4E,08,21 

1414 DATA 97,8A,C3,9B,8F,FE,02,C2 

1415 DATA B8,8E,DD,7E,01,B7,C2,B8 

1416 DATA 8E,DD,7E,00,FE,01,DA,B8 

1417 DATA 8E,FE,18,D2,B8,8E,32,B8 

1418 DATA 89,DD,6E,02,DD,66,03,22 

1419 DATA B9,89,C9,F5,AF,32,DB,94 

1420 DATA Fl,FE,01,C2,B8,8E,DD,7E 

1421 DATA 01,B7,C2,B8,8E,DD,7E,00 

1422 DATA FE,18,D2,B8,8E,FE,01,DA 

1423 DATA B8,8E,5F,16,00,1B,21,E8 

1424 DATA 8A,19,36,FF,3E,FF,32,DB 


[1585] 
[687] 
[1445] 
[ 2100 ] 
[1793] 
[2040] 
[1490] 
[1800] 
[ 1212 ] 
[664] 
[1093] 
[1741] 
[2060] 
[1576] 
[1489] 

[1254] 
[1241] 
[1066] 
[981] 
[747] 
[1296] 
[632] 
[1621] 
[937] 
[1759] 
[1015] 
[1765] 
[1629] 
[1308] 
[2204] 
[1371] 
[649] 
[1632] 
[1230] 
[1475] 
[1135] 
[2064] 
[815] 
[942 ] 
[1141] 
[555] 
[1978] 
[1441 ] 
[1139] 
[1336] 
[1032] 
[1455] 
[1060] 
[1961] 
[2034] 
[1511] 
[1783] 
[2313] 
[700] 
[1575] 
[848] 
[1826] 
[1280] 
[1126] 
[ 1100 ] 
[1509] 
[1281] 
[767] 
[1308 
[1964 
[1632 
[1208 
[1108. 
[1743] 
[2078] 
[1428] 
(1061 
[1785] 
[1320] 
[555] 
[1817] 
[2300] 
1611] 
1560] 
813] 
1245] 
984] 
1569] 
1306] 
1511] 
1101 ] 
1070] 
[1559] 
[990] 
[891] 
[ 1110 ] 
[1603 
[2341 
[1893 
[1152 
[1129 
[ 1804 
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Programm 


1425 DATA 94,C9,FE,03,C2,B8,8E,AF 

1426 DATA DD,BE,01,C2,B8,8E,DD,BE 

1427 DATA 03,C2,B8,8E,DD,BE,05,C2 

1428 DATA B8,8E,DD,7E,00,E6,OF,32 

1429 DATA BE,89,DD,7E,02,E6,OF,32 

1430 DATA BD,89,DD,7E,04,E6,0F,32 

1431 DATA BC,89,C9,FE,06,C2,B8,8E 

1432 DATA AF,DD,BE,01,C2,B8,8E,DD 

1433 DATA BE,03,C2,B8,8E,DD,BE,05 

1434 DATA C2,B8,8E,DD,BE,07,C2,B8 

1435 DATA 8E,DD,BE,09,C2,B8,8E,DD 

1436 DATA BE,OB,C2,B8,8E,DD,7E,00 

1437 DATA 32,63,96,DD,7E,02,32,72 

1438 DATA 96,DD,7E,04,32,7C,96,DD 

1439 DATA 7E,06,32,77,96,DD,7E,08 

1440 DATA 32,6D,96,DD,7E,OA,32,68 

1441 DATA 96,C9,21,64,93,22,CF,95 

1442 DATA FE,IC,D2,B8,8E,FE,05,DA 

1443 DATA B8,8E,F5,F5,DD,E5,El,11 

1444 DATA CO,89,01,04,00,ED,BO,11 

1445 DATA C8,89,01,04,00,ED,BO,D6 

1446 DATA 02,32,C4,89,AF,32,C5,89 

1447 DATA 32,C7,89,Fl,D6,04,47,FD 

1448 DATA 21,A5,95,3E,08,FD,77,02 

1449 DATA 3C,FD,77,05,AF,DD,6E,08 

1450 DATA DD,66,09,BE,30,01,7E,FD 

1451 DATA 34,02,FD,34,02,FD,34,05 

1452 DATA FD,34,05,10,E8,C6,04,32 

1453 DATA C6,89,AF,32,BF,89,DD,E5 

1454 DATA DD,21,CO,89,3E,06,CD,6F 

1455 DATA 91,21,6F,91,22,CF,95,DD 

1456 DATA El,Fl,21,BF,89,CB,7E,C8 

1457 DATA F5,3A,BC,89,CD,C4,8E,32 

1458 DATA B5,89,3A,BD,89,CD,C4,8E 

1459 DATA 32,B4,89,3A,BE,89,CD,C4 

1460 DATA 8E,32,3B,97,3A,C4,89,21 

1461 DATA C8,89,86,D6,02,32,B7,89 

1462 DATA 3A, CA, 89 , C6,02,32 , B6,89 

1463 DATA Fl,D6,04,32,BB,89,47,FD 

1464 DATA 21,24,96,3E,08,FD,77,02 

1465 DATA 3C,FD,77,05,DD,6E,08,DD 

1466 DATA 66,09,7E,B7,28,IC,C5,4F 

1467 DATA 06,00,23,5E,23,56,EB,11 

1468 DATA 97,8A,ED,BO,EB,36,00 , ED 

1469 DATA 4B,B6,89,21,97,8A,CD,9B 

1470 DATA 8F,CI,21,B7,89,35,FD,34 

1471 DATA 02,FD,34,02,FD,34,05,FD 

1472 DATA 34,05,10,C8,CD,E3,96,CD 

1473 DATA 06,BB,FE,FC,CC,85,96,FE 

1474 DATA F2,CC,85,96,FE,F3,CC,85 

1475 DATA 96,FE,0D,CC,8E,96,FE,FO 

1476 DATA CC,9A,96,FE,Fl,CC,CF,96 

1477 DATA CD, 03 , BB, 18 , DA, 2A, B9,89 

1478 DATA 77,CD,OE,97,El,C9,CD,OE 

1479 DATA 97,2A,B9,89,3A,B8,89,77 

1480 DATA E1,C9,CD,0E,97,3A,B8,89 

1481 DATA 3D,20,03,3A,BB,89,32,B8 

1482 DATA 89,3A,BB,89,47,3A,B8,89 

1483 DATA 5F,16,00,1B,21,E8,8A,19 

1484 DATA 7E,B7,28,52,3A,B8,89,3D 

1485 DATA 20,03,3A,BB,89,32,B8,89 

1486 DATA 10,E3,CD,06,BB,El,C9,CD 

1487 DATA OE,97,3A,B8,89,3C,21,BB 

1488 DATA 89,BE,38,04,28,02,3E,01 

1489 DATA 32,B8,89,3A,BB,89,47,3A 

1490 DATA B8,89,5F,16,00,1B,21,E8 

1491 DATA 8A,19,7E,B7,28,18,3A,B8 

1492 DATA 89,3C,21,BB,89,BE,38,04 

1493 DATA 28,02,3E,01,32,B8,89,10 

1494 DATA DE,CD,06,BB,El,C9,3A,B8 

1495 DATA 89,21,C8,89,86,32,AF,89 

1496 DATA 3A,CA,89,C6,02,32,AE,89 

1497 DATA CD,30,8E,E5,3A,C6,89,D6 

1498 DATA 04,21,97,8A,77,CD,27,8E 

1499 DATA 32,39,97,El,06,08,C5,E5 

1500 DATA 06,00,3E,00,AE,77,23,10 

1501 DATA F9,El,01,00,08,09,30,04 

1502 DATA 01,50,CO,09,C1,10,E7,C9 

1503 DATA FE,29,D2,B8,8E,FE,01,DA 

1504 DATA B8,8E,4F,3A,01,8A,B7,C2 

1505 DATA 86,8E,79,21,45,8A,22,02 

1506 DATA 8A,11,46,8A,01,51,00,36 

1507 DATA 00,ED,BO,47,3D,87,5F,16 

1508 DATA 00,21,45,8A,19,FD,21,89 

1509 DATA 97,AF,FD,77,02,3C,FD,77 

1510 DATA 05,DD,5E,00,DD,56,01,73 

1511 DATA 23,72,7A,E6,CO,FE,40,CA 

1512 DATA 8B,8E,2B,2B,2B,FD,34,02 

1513 DATA FD,34,02,FD,34,05,FD,34 

1514 DATA 05,10,DE,C3,C4,97,B7,C2 

1515 DATA B8,8E,21,C4,97,22,AC,97 

1516 DATA C9,B7,C2,B8,8E,2.1,D9,97 

1517 DATA 2 2,AC,97,C9,CD,19,BD,21 

1518 DATA CC,89,11,EA,97,01,00,80 

1519 DATA CD,EO,BC,3E,02,32,01,8A 

1520 DATA C9,21,CC,89,11,EA,97,06 

1521 DATA 80,CD,D7,BC,3E,01,32,01 


[1435] 
[1619] 
[2063] 
[1380] 
[1830] 
[1576] 
[763] 
[1195] 
[894] 
[351] 
887] 
1260] 
1043] 
686 ] 
1156] 
1675] 
1436 J 
1399] 
1052] 
1141 ] 
1989] 
1540] 
[1721] 
[2075] 
[828] 
[836] 

[1401] 

[1507] 

[1192] 

[ 866 ] 

[1558] 

[1324] 

[1550] 

[1701] 

[2156] 

[1083] 

[1458] 

[902 ] 

[1045] 

[1078] 

[890] 

[1929] 

[1208] 

[1256] 

[937] 

[1116] 

[958] 

[1562] 

[1613] 

[718] 

[1410] 

[2385] 

[1493] 

[1738] 

[ 992 ] 

[1675] 

[ 1012 ] 

[995] 

[1308] 

[1746] 

[1537] 

[1570] 

[1663] 

[1188] 

[1375] 

[1471] 

[1380 ] 

[1012 ] 

[1187] 

[1637] 

[804] 

[1184] 

[944] 

[990] 

[ 868 ] 

[1670] 

[901] 

[1377] 

[1076] 

[1530] 

[916] 

[905] 

[1209] 

[862] 

[1089] 

[1426] 

[1438] 

( 1774 ] 

[1288] 

[1163] 

[1505] 

[1037] 

[1280] 

[843] 

[2089] 

[1734] 

[1500] 


1522 DATA 8A,C9,2A,02,8A,5E,23,56 

1523 DATA EB,CD,06,98,2A,02,8A,23 

1524 DATA 23,23,7E,2B,B6,20,03,21 

1525 DATA 45,8A,22,02,8A,C9,E9,B7 

1526 DATA C2,B8,8E,3A,01,8A,B7,C8 

1527 DATA 21,01,8A,36,00,21,CC,89 

1528 DATA FE,01,CA,DD,BC,C3,E6,BC 

1529 DATA FE,16,D2,B8,8E,FE,02,DA 

1530 DATA B8,8E,F5,3A,El,89,CD,46 

1531 DATA 91,Fl,21,97,8A,77,AF,DD 

1532 DATA BE,01,C2,B8,8E,DD,7E, 00 

1533 DATA FE,19,D2,B8,8E,46,77,05 

1534 DATA FD,21,7B,98,78,32,C9,99 

1535 DATA 32,EF,99,87,FD,77,02,3C 

1536 DATA FD,77,05,C5,CD,OE,8E,C1 

1537 DATA 32,DC,98,11,IC,AO,21,98 

1538 DATA 8A,36,20,23,36,20,23,36 

1539 DATA 20,21,10,A2,22,OE,A2,78 

1540 DATA 32,04,A4,DD,6E,02,DD,66 
1.541 DATA 03,7E,FE, 15,D2,B8,8E,C5 

1542 DATA D5,23,5E,23,56,EB,B7,20 

1543 DATA 05,21,99,8A,3E,01,D1,E5 

1544 DATA F5,6B,62,01,IC,AO,A7,ED 

1545 DATA 42,7D,2A,OE,A2,77,23,Fl 

1546 DATA 77,23,22,OE,A2,El,4F,06 

1547 DATA 00,ED,BO,CI,C5,78,FE,01 

1548 DATA 28,14,21,98,8A,01,03,00 

1549 DATA ED,BO,FD,35,02,FD,35,02 

1550 DATA FD,35,05,FD,35,05,CI,10 

1551 DATA AA,EB,36,00,11,1C,AO,A7 

1552 DATA ED,52,7D,FE,50,D2,B3,8E 

1553 DATA 3A,BC,89,CD,C4,8E,32,B5 

1554 DATA 89,3A,BD,89,CD,C4,8E,32 

1555 DATA B4,89,3A,BE,89,CD,C4,8E 

1556 DATA 32,BA,99,3A,97,8A,OE,00 

1557 DATA 47,21,IC,AO,CD,9B,8F,3A 

1558 DATA B8,89,3D,21,04,A4,BE, 38 

1559 DATA 01,AF,3C,32,B8,89,CD,C8 

1560 DATA 99,CD,06,BB,21,68,96,BE 

1561 DATA 28,23,21,6D,96,BE,28,31 

1562 DATA 21,72,96,BE,28,41,21,63 

1563 DATA 96,BE,28,46,21,77,96,BE 

1564 DATA 28,40,21,7C,96,BE,28,3A 

1565 DATA CD,03,BB,18,D4,CD, 81,99 

1566 DATA 3A,B8,89,3D,20,03,3A,04 
.1567 DATA A4,32 , B8,89 , CD, EE, 99,18 

1568 DATA CO,CD,81,99,3A,B8,89,21 

1569 DATA 04,A4,BE,20,01,AF,3C,32 

1570 DATA B8,89,CD,C8,99,18,AA,CD 

1571 DATA 81,99,3A,B8,89,2A,B9,89 

1572 DATA 77,C9,2A,B9,89,77,CD,27 

1573 DATA 8E,3A,97,8A,87,87,87,5F 

1574 DATA 16,00,6F,62,29,29,19,29 

1575 DATA E5,3A,B8,89,3D,87,5F,16 

1576 DATA 00,21,10,A2,19,CD,27,8E 

1577 DATA F5,23,CD,27,8E,32,B7,99 

1578 DATA Fl,Dl,6F,26,00,19,11 ,00 

1579 DATA CO,19,06,08,C5,E5,06,00 

1580 DATA 7E,EE,00,77,23,10,F9,El 

1581 DATA 3E,08,84,67,CI,10,ED,C9 

1582 DATA 06,00,3A,B8,89,3D,5F,16 

1583 DATA 00,21,E8,8A,19,7E,B7,28 

1584 DATA A8,3A,B8,89,21,04,A4,BE 

1585 DATA 20,01,AF,3C,32,B8,89,10 

1586 DATA El,CD,06,BB,El,C9,06,00 

1587 DATA 3A,B8,89,3D,5F,16,00,21 

1588 DATA E8,8A,19,7E,B7,28,82,3A 

1589 DATA B8,89,3D,20,03,3A,04,A4 

1590 DATA 32,B8,89,10,E3,CD,06,BB 

1591 DATA El,C9,FE,03,C2,B8,8E,CD 

1592 DATA 3E,9A,ED,BO,C9,FE,03,C2 

1593 DATA B8,8E,CD,3E,9A,ED,B8,C9 

1594 DATA FE,03,C2,B8,8E,CD,3E,9A 

1595 DATA EB,7A,B7,C2,B8,8E,73,5D 

1596 DATA 54,13,OB,ED,BO,C9,DD,4E 

1597 DATA 00,DD,46,01,DD,5E,02,DD 

1598 DATA 56,03,DD,6E,04,DD,66,05 

1599 DATA C9,4F,E6,F8,26,13,6F,B1 

1600 DATA AD,29,54,5D,14,14,8F,84 

1601 DATA 67,79,29,29,19,48,06,00 

1602 DATA 09,C9,FE,05,C2,B8,8E,AF 

1603 DATA DD,BE,03,C2,B8,8E,DD,BE 

1604 DATA 05,C2,B8,8E,DD,BE,07,C2 

1605 DATA B8,8E,DD,BE,09,C2,B8,8E 

1606 DATA DD,7E,08,FE,50,D2,B8,8E 

1607 DATA 47,DD,7E,06,FE,C8,D2,B8 

1608 DATA 8E,CD,51,9A,DD,7E,04,32 

1609 DATA B8,9A,DD,46,02,DD,5E,00 

1610 DATA DD,56,01,DD,7E,04,12,13 

1611 DATA DD,7E,02,12,13,C5,E5,01 

1612 DATA 00,00,ED,BO,El,01,00,08 

1613 DATA 09,30,04,01,50,CO,09,CI 

1614 DATA 10,EB,C9,FE,04,C2,B8,8E 

1615 DATA AF,DD,BE,03,C2,B8,8E,DD 

1616 DATA BE,05,C2,B8,8E,DD,BE,07 

1617 DATA C2,B8,8E,DD,7E,06,E6,03 

1618 DATA 5F,16,00,21,2F,9B,19,7E 


[438] 
[1134] 
[1399] 
[1140] 
[745] 
[992] 
[884] 
[814] 
[393] 
[1661] 
[1523] 
[ 1001 ] 
[1625] 
[1491] 
[414] 
[1474] 
[1296] 
[1165] 
[1472] 
[1323] 
[1805] 
[1339] 
[1422] 
[570] 
[1224] 
[1322] 
[847] 
[1460] 
[1133] 
[1194] 
1532] 
757] 
976) 
1002 ] 
1920] 
1087] 
1118 ] 
1080 ) 
1279] 
1582] 
788] 
928] 
1223] 
1596] 
1782] 
759] 
[1006] 
[1381] 
[1371] 
[1393] 
[1497] 
[1647] 
[1085] 
[1132] 
[1768] 
[1307] 
[1343] 
[1364] 
[1266] 
[2137] 
[599] 
[1380] 
[871] 
[998] 
[1301] 
[1082] 
[1730] 
[1157] 
[1029] 
[1673] 
[973] 
[398] 
[1320] 
[1510] 
[1468] 
[1580] 
[1032] 
[1431] 

[ 949 ] 

[945] 

[426] 

[2049] 

[1142] 

[1016] 
[1288] 
[1197] 
[1255] 
[733] 
[953] 
581] 
1313 ] 
1308] 
1246] 
1110 ] 
1717] 
[939] 
[834] 
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Programm 


1619 DATA 32,1A,9B,DD,7E,04,FE,50 

1620 DATA D2,B8,8E,47,DD,7E,02,FE 

1621 DATA C8,D2,B8,8E,CD,51,9A,DD 

1622 DATA 5E,00,DD,56,01,1A,32,18 

1623 DATA 9B,13,1A,13,47,C5,E5,06 

1624 DATA 00,1A,B6,77,13,23,10,F9 

1625 DATA El,01,00,08,09,30,04,01 

1626 DATA 50,CO,09,CI,10,E7,C9,00 

1627 DATA B6,A6,AE,21,10,8A,11,11 

1628 DATA 8A,01,09,00,36,20,ED,BO 

1629 DATA C9,EB,11,10,8A,4F,06,00 

1630 DATA ED, BO , C'9,2A, 06,8A,11,40 

1631 DATA 00,19,EB,CD,51,8E,EB,FD 

1632 DATA 21,10,8A,E5,EB,2A,04,8A 

1633 DATA CB,BC,CB,F4,2B,CI,A7,ED 

1634 DATA 42,D8,EB,4B,42,FD,7E,00 

1635 DATA ED,Bl,F5,2B,Fl,28,02,37 

1636 DATA C9,FD,23,FD,7E,00,B7,20 

1637 DATA 08,11,09,00,A7,ED,52,A7 

1638 DATA C9,23,FD,7E,00,BE,28,E9 

1639 DATA 18,C5,ED,5B,06,8A,CD,51 

1640 DATA 8E,EB,01,00,40,79,BE,28 

1641 DATA 05,0C,23,10,F9,3D,51,1E 

1642 DATA 00,CB,22,CB,22,C9,6F,26 

1643 DATA 00,5F,54,29,29,29,29,A7 

1644 DATA ED,52,C9,FE,01,C2,B8,8E 

1645 DATA DD,7E,01,B7,C2,B8,8E,DD 

1646 DATA 7E,00,FE,3F,D2,B8,8E,32 

1647 DATA 08,8A,3C,4F,CD,A6,9B,21 

1648 DATA 00,00,A7,ED,52,22,06,8A 

1649 DATA 2B,22,27,8D,11,41,00,19 

1650 DATA 22,04,8A,ED,5B,06,8A,CD 

1651 DATA 5T,8E,6B,62,13,01,3F,00 

1652 DATA 36,FF,ED,BO,EB,3A,08,8A 

1653 DATA B7,28,13,16,00,5F,A7,ED 

1654 DATA 52,36,00,3D,28,08,5D,54 

1655 DATA 13,4F,06,00,ED,BO,01,CO 

1656 DATA 7F,ED,49,C3,26,8D,B7,C2 

1657 DATA B8,8E,32,08,8A,21,FF,FF 

1658 DATA 22,27,8D,22,06,8A,22,04 

1659 DATA 8A,C3,26,8D,ED,5B,04,8A 

1660 DATA 3E,FF,BA,CO,Fl,C3,AE,8E 

1661 DATA FE,03,C2,B8,8E,CD,33,9B 

1662 DATA DD,6E,04,DD,66,05,7E,FE 

1663 DATA OB,D2,90,8E,23,5E,23,56 

1664 DATA FE,01,20,08,F5,1A,FE,2A 

1665 DATA CA,9D,9E,Fl,B7,20,05,3E 

1666 DATA 07,11,1B,8A,CD,41,9B,CD 

1667 DATA 4B,9B,D2,95,8E,CD,34,9C 

1668 DATA CD,51,8E,21,10,8Ä,01,OA 

1669 DATA 00,ED,BO,EB,DD,5E,02,DD 

1670 DATA 56,03,73,23,72,ED,53,OC 

1671 DATA 8A,23,DD,5E,00,DD,56,01 

1672 DATA 73,23,72,ED,53,OE,8A,2A 

1673 DATA 04,8A,11,OE,00,19,22,OA 

1674 DATA 8A,01,CO,7F,ED,49,CD,92 

1675 DATA 9B,B7,28,IC,ED,5B,OA,8A 

1676 DATA CD,51,8E,3E,FF,12,2A,04 

1677 DATA 8A,11,OE,00,19,EB,CD,51 

1678 DATA 8E,EB,CD,F8,9D,C3,9F,8E 

1679 DATA 36,FF,2A,OA,8A,D5,EB,CD 

1680 DATA 51,8E,EB,D1,7A,0F,0F,77 

1681 DATA 01,CO,7F,ED,49,D5,2A,OC 

1682 DATA 8A,11,1C,A0,01,FF,03,ED 

1683 DATA BO,Dl,D5,CD,51,8E,21,IC 

1684 DATA AO,01,FF,03,ED,BO,01,C0 

1685 DATA 7F,ED,49,El,11,FF,03,19 

1686 DATA 22,OA,8A,2A,OC,8A,19,22 

1687 DATA OC,8A,2A,OE,8A,A7,ED,52 

1688 DATA 22,OE,8A,28,04,38,02,18 

1689 DATA 8D,ED,5B,OA,8A,CD,51,8E 

1690 DATA EB,36,FF,01,CO,7F,ED,49 

1691 DATA 2A,04,8A,11,OF,00,19,22 

1692 DATA 04,8A,C9,FE,03,D2,B8,8E 

1693 DATA B7,CA,B8,8E,32,IC,AO,CD 

1694 DATA 33,9B,DD,6E,00,DD,66,01 

1695 DATA 22,OC,BA,FE,01,28,04,DD 

1696 DATA 23,DD,23,CD,34,9C,DD,6E 

1697 DATA 00,DD,66,01,7E,FE,OB,D2 

1698 DATA 90,8E,23,5E,23,56,B7,20 

1699 DATA 05,3E,07,11,1B,8A,CD,41 

1700 DATA 9B,CD,4B,9B,DA,A4,8E,11 

1701 DATA OE,00,19,7E,32,09,8A,2B 

1702 DATA 56,2B,5E,ED,53,0E,8A,3A 

1703 DATA IC,AO,FE,02,28,08,2B,56 

1704 DATA 2B,5E,ED,53,OC,8A,01,CO 

1705 DATA 7F,ED,49,3A,09,8A,4F,CD 

1706 DATA A6,9B,CD,51,8E,EB,11,1C 

1707 DATA AO,01,FF,03,ED,BO,7E,32 

1708 DATA 09,8A,01,C0,7F,ED,49,2A 

1709 DATA OE,8A,11,FF,03,A7,ED,52 

1710 DATA 38,20,28,IE,21,IC,AO,ED 

1711 DATA 5B,OC,8Ä,01,FF,03,ED,BO 

1712 DATA ED,53,OC,8A,11,FF,03,2A 

1713 DATA OE,8A,A7,ED,52,22,0E,8A 

1714 DATA 18,B9,21,IC,AO,ED,5B,OC 

1715 DATA 8A, ED, 4B, 0 E, 8A, ED, BO , C9 


[1007] 

[1568] 

[2574] 

[1686] 

[1304 ] 

[1277] 

[1085] 

[1757] 

[963] 

[953] 

[975] 

[1702] 

[1456] 

[597 ] 

[1247] 

[557] 

[1565] 

[1143] 

[1395] 

[1311] 

[1461] 

[ 1202 ] 

[1196] 

[1743] 

[1348] 

[1388] 

[1027] 

[1004] 

[1350] 

[1205] 

[1850] 

[1451] 

[925] 

[1791] 

[1726] 

[1065] 

[1097] 

[1338] 

[1581] 

[1525] 

[603] 

[1380] 

[1589] 
[990] 
[572] 
[722] 
[710] 
[626] 
[1529] 
[644 ] 
[1064] 
[1535] 
[1489] 
[1058] 
[945] 
[ 1212 ] 
[642] 
1100 ] 
696] 
1090] 
1153] 
‘1845] 
[1539] 
[884] 
[1427] 
[1704] 
[1257] 

|1180] 
[1083] 
[1125] 
[450] 
[978] 
[1604 
[755] 
[1161] 
[1109] 
[1498] 
[856] 
[1688] 
[1049] 
[1660] 
[593 ] 
[1187] 
[1713] 
[1654] 
[1085] 
[2076] 
[ 1099 
[1566' 
[873] 
[2389] 
[1015] 
[1445' 
[1546' 
[2074] 
[1183] 
[424] 


1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 
174 7 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


4E ,79 
CD, 18 
8E, 21 
18,9E 
C5, ED 
EB, CI 
C2,B8 
9C, DD 
FE, OB 
56, FE 
2A, 28 
07,11 
4B,9B 
19, CD 
E5 , ED 
EB, Dl 
ED,52 
00, E5 
Dl, ED 
2A, 04 
52,22 
11,40 
EB, 3A 
16,00 
28,08 
ED,BO 
7F, ED 
B8,8E 
DD, 6E 
OB, D2 
FE, 01 
28, AB 
11,1B 
9B,D2 
49,21 
OA, 00 
6E, 00 
D2,9 0 
20,05 
41,9B 
EB, 21 
BO,01 

OE, FF 
C6,30 
12,13 
78,91 
B8,8E 
11 ,1C 
ED, 5B 
40,00 
AO , 3A 
BC, 20 
36,01 
12,13 
23,56 

OF, 3C 
4B, 12 
13,10 
00,09 
CO , 7F 
CD,51 
BE, 20 
01 ,C0 
8A, CD 
01,OF 
C3,BB 
34,9C 
AO , 01 
7F, ED 


,06,00,FE,FF, 

,9E,CD,A6,9B, 

,FF,03,19,18, 

,01,CO,7F,ED, 

,5B,06,8A,CD, 
,09,36,00,C9, 

, 8E,CD,33,9B, 

,6E,00,DD,66, 
,D2,90,8E,23, 
,01,20,07,F5, 

,5 2,Fl,B7,20, 

,1B,8A,CD,41, 

, DA, A4,8 E, 11 , 

,F8,9D,CD,4B, 

,SB,04,8A,CD, 

, A7 , ED, 5 2,11, 

,Dl,28,OE,EB, 

,01,OF,00,09, 

,BO,01,CO,7 F, 

,8A, 11,OF,00, 

,04,8A,C9,2A, 

,00,19,EB,CD, 

,08,8A,B7,28, 
,A7,ED,52,36, 

,4F,06,00,5D, 
,23,22,04,8A, 
,49,Fl,C9,FE, 

,CD,33,9B,CD, 
,02,DD,66,03, 

,90,8E,2 3,5E, 
,20,07,F5,1A, 

,Fl,B7,20,05, 

,8A,CD,41,9B, 

, 95,8E,01,CO, 
, 10 , 8A ,1 1 , IC , 

,ED,BO,CD,33, 

,DD,66,01,7E, 

,8E,23,5E,23, 
,3E,07,11,1B, 

,CD,4B,9B,DA, 

,IC,AO,01,OA, 

,CO,7F,ED,49 , 

,OC,D6,OA,30, 
,FE,30,20,02, 
,79,87,87,81, 
,C6,30,12,C9, 
,CD,34,9C,21, 
,AO,01,17,00, 
,06,8A,CD,51, 
,19,22,OC,8A, 
,05,8A,CB,BF, 
,06,3A,04,8A, 
,OA,00,ED,BO, 
,12,13,05,23, 
,23,23,7A,E6, 
,Dl,CD,47,9F, 
,06,05,3E,20, 
,FC,2A,OC,8A, 
,22,OC,8A,18, 
,ED,49,2A,06, 
,8E,EB,01,00, 
, 01,OC,23,10, 
,7F,ED,49,D5, 
,47,9F,Dl,21, 
,00,ED,BO,21, 
,8E,B7,C2,B8, 
,CD,51,8E,EB, 
,00,04,ED,BO, 
,49,C9,00,00, 


28,OF 
CD, 51 
E9, CD 
49,C9 
51,8E 
FE,01 
CD,34 
01,7E 
5 E, 23 
1A, FE 
05,3E 
9B, CD 

OE, 00 
9B,E5 
51,8E 

OF, 00 
01,0F 
4B, 4 2 
ED,49 
A7 , ED 
06,8A 
51,8E 
14,5F 
00,3D 
54,13 
01 ,C0 
02, C2 
34,9C 
7E, FE 
23,56 
FE, 2A 
3E, 07 
CD, 4B 
7F, ED 
AO, 01 
9B, DD 
FE, OB 
56, B7 
8A, CD 
A4,8E 
00,ED 
C9,47 

FB, 79 
3E, 20 
87,4F 
B7,C2 
2 2,8A 
ED,BO 
8E, 21 
11,33 
CB ,F7 
BD, 28 
3E, 20 
23,5E 

FC, OF 
13,3E 
13,12 
01,0F 
BA, 01 
8A, EB 
40,79 
F9,79 
11,39 
36,8A 
IC, AO 
8E, CD 
11,IC 
01,CO 
00,00 


[905] 
[ 1100 ] 
[1471] 
[1689] 
[1086] 
[1183] 
[875] 
[1246] 
[1406] 
[685] 
[1455] 
[626] 
[1334] 
[1494] 
[1440] 
[1183] 
[1629] 
[1585] 
1797 ] 
1669] 
1278] 
1401] 
[875] 
[979 ] 
[977] 
[1808] 
[838] 
[611] 
[1160] 
[572] 
[438] 
[618] 
[1681] 
[1756] 

[ 680] 
[853 ] 

[1171] 

[779] 
[1602] 
[1045] 
[1187] 
[1690] 
[1040] 
[1067] 
[1490] 
[2065] 
[1179] 
[1318] 
[ 222 ] 
[964] 
[1145] 
[1064] 
[948] 
[1490] 
[1842] 
[1.608] 
[1219] 
[367] 
[ 1021 ] 
[1016] 
[ 1201 ] 
[834] 
[1093] 
[955] 
[1426] 
[ 624] 
[1767] 
[750] 
[1667] 


10 ' RSXDEMOO.BAS 

20 'Demoprogramm 1 fuer RSX-Professional 
30 '(c) 1991 Damir Petkovic & CPC Internat 

io^GETMEM,&BF00 : var=PEEK(&BF01) *256 + PEEK( 

50^' SIR = INT(RND( 1 ) *77 )+4 : VIS = INT ( RND( 1 ) *21) 
+ 4 

60 IF (sir*vis*8)<var THEN GOSUB 120 ELSE 
GOTO 80 
70 GOTO 40 

80 IGETMEM,&BF00:var=PEEK(&BF01)*256+PEEK( 
&BF00) 

90 IF var>65520 THEN GOTO 40 
100 GOSUB 160 
110 GOTO 80 


[1301] 

[1857] 

[2092] 

[2976] 

[3173] 

[3210] 

[378] 
[2976] 

[ 1121 ] 

[933] 

[306] 
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120 GOSUB 180:X=INT(RND(1)*(80-SIR)):Y=INT [3812] 
(RND(1)*(25 -VI S ) ) 

130 okvir=INT(RND(l)*3)+l:col=INT(RND(l)*2 [1844] 

140 ISETBORDER,col,(col XOR 1),okvir:|OPEN [5448] 
WINDOW,X,Y,SIR,VIS,"","" 


150 RETURN 
160 GOSUB 180:|CLOSEWINDOW 
170 RETURN 

180 FOR a=0 TO 173:NEXT 
190 RETURN 


[555] 

[1798] 

[555] 

[1133] 

[555] 


10 'RSXDEMOl.BAS [1253] 

20 'Demoprogramm 2 fuer RSX-Professional [1767] 


30 '(c) 1991 Damir Petkovic & CPC Internat 
ional 

40 ON BREAK CONT 

50 BORDER 26:INK 0,26:INK 1,0:INK 2,15:INK 
3,6:INK 4,20:INK 5,2:INK 6,25:INK 7,3:MOD 
E 2:|DEFAULT:|CLEARWINDOWS 
60 ' postavljanje tri masinske rutine za p 
romjenu mode-a bez brisanja ekrana 
70 FOR X=&AF00 TO &AF0E:READ A:POKE X,A:NE 
XT 

80 DATA &3E,0,&C3,&1C,&BD,&3E,1,&C3,&1C,&B 
D,&3E,2,&C3,&1C,&BD 

90 ' postavljanje masinskih rutina u inter 
rupt iz Basica ! 

100 I FASTINTERRUPT: I SETINTERRUPT,&AF0A,&AF 

05,&AF05,&AF00,&AF00,&AF0A 

110 ' pocetak demonstracije 

120 I SETMODE,2:FOR y=0 TO 4 

130 FOR x=0 TO 3:ITEXT,x*17,y,1,0,"RSX Pro 

fessional ":NEXT x 

140 NEXT y 

150 I SETMODE,1:FOR y=6 TO 17 

160 FOR x=0 TO 1:ITEXT,x*17,y,1,0,"RSX Pro 

fessional ":NEXT x 

170 NEXT y 

180 I SETMODE,0:FOR y=20 TO 24 

190 TEXT,0,y,1,0,"RSX Professional " 

200 NEXT y 

210 I SETMODE,2: ISETBORDER,1,0,2: I NAME,1,0: 

I SUBNAME,1,0: I INSIDE,0 

$20 lOPENWINDÖW,30,0,20,5," Demonstration 
"," Press any key " 

230 ITEXT,32,2,1,0,"RSX Professional" 

240 CALL &BB06 

250 I SETMODE,1: ISETBORDER,0,1,1: |NAME,3,1: 

|SUBNAME,2,1 

260 IDELOPTION,1: IDELOPTION,6: I MENUINPUT,& 
BF00.2 

270 MENU,"Best of Speed Metal","Best o 
f Hard Core", "Best of ■Punk"-, "Best of dass 
ics","",9,7," Music List "," Enter your ch 
oice " 

280 a=PEEK(&BF00) 

290 IF a>239 TUEN GOTO 450 

300 ON (a-1) GOTO 310,360,390,420 

310 ISETBORDER,1,0,3: OPENWINDOW,5,a+8,10, 

^ »I II 1 II II 

320 1TEXT,7,a+10,3,0,"Slayer" 

330 CALL &BB06:ICLOSEWINDOW 
340 IMENUONLY," A ,"Best of Speed Metal","Be 
st of Hard Core","Best of Punk","Best of C 
lassics","",9,7," Music List "," Enter you 
r choice " 

350 GOTO 280 

360 ISETBORDER,2,0,3:IOPENWINDOW,10,a+8,10 
5 n ft n n 1 

370 ITEXT,12,a+10,1,0,"D.R.I." 

380 GOTO 330 

390 ISETBORDER,3,2,3:IOPENWINDOW,15,a+8,17 

5 II b II II 1 

400 |TEXT,17,a+10,2,0,"Dead Kennedys" 

410 GOTO 330 

420 ISETBORDER,2,1,3:IOPENWINDOW,25,a+8,12 

^ II <1 II II 

4 30 ITEXT,27,a+10,1,0,"J.S.Bach" 

440 GOTO 330 

450 I SETMODE,0:ISETBORDER,4,5,2:|INSIDE,7 
460 IRESETOPTIONS 


[2092] 


323 

5741 


[3636] 

[2087] 

[3318] 

[3326] 


[5197] 

[1190] 

[1466] 

[4182] 

[ 359 ] 
[2247] 
[3882] 

[359] 

[2063] 

[404,2] 

[359] 

[4477] 


[3949] 

[2362] 

[393] 

[2902] 

[3651] 


[9234] 


[1374] 

[1313] 

[1778] 

[3723] 


[1439] 

[2303] 

[10388] 


[413] 

[3493] 


[1902] 

[506] 

[3472] 


[2552] 

[506] 

[3974] 


[2204] 

[506] 

[4433] 

[2097] 


470 |OPENWINDOW,5,20,11,5,"","" [1556] 
480 TEXT,7,22,6,7,"THE END" [2114] 
490 CALL &BB06:ICLOSEWINDOW:|CLOSEWINDOW:| [3181] 
CLOSEWINDOW 

500 CALL &BB06:|DEFAULT:MODE 2:END [2585] 


10 'RSXDEM02.BAS 

20 'Demoprograiran 3 fuer RSX-Professional 
30 '(c) 1991 Damir Petkovic & CPC Internat 
ional 

40 ON BREAK CONT 

50 MODE 2:PRINT "Wait a minute ..." 

60 a$="l":b$="6":c$="0" 

70 RAD 

80 DIM X0(162),y0(162),xl(162),yl(162),x2( 

162),y2(162),X3(162),y3(162) 

90 C=1 

100 FOR a = 0 TO 4*PI STEP PI/40 

110 xO(c)=15 2 +14 0 * SIN(a):y0(c)=178+116*COS 

(a/2) 

120 xl(c)=152+128*COS(a/2):yl(c)=178+116*S 
IN(a/2) 

130 x2(c)=488+.140*SIN(a/2) :y2 (c) = l 78 + 116*C 
OS (a) 

140 x3(c) = 488 + 128*COS(a/2):y3(c)=178+116*S 
IN(a) 

150 c=c+l:c$=CHR$(VAL(c$)-l+&30):IF c$<"0" 
THEN c$="9":b$=CHR$(VAL(b$)-1 + & 30):IF b$< 
"0" THEN b$="9":a$=CHR$(VAL(a$)-l+&30) 

160 d$=a$+b$+c$:ITEXT,0,2,1,0,d$ 

170 NEXT 

180 INK 0,11:INK 1,0:BORDER ll:MODE 2:IDEF 

AULT:ICLEARWINDOWS 

190 a=l:b=l:d=l:|RAMDISK,40 

200 FOR X=0 TO 639 STEP 20 

210 MOVE 0,399:DRAW X,0,1 

220 NEXT 

230 FOR X=639 TO 0 STEP -20 
240 MOVE 639,399:DRAW x,0,l 
250 NEXT 

260 A$="This demonstration v/as made" 

270 B$ = "t.o show you how easy you could" 

280 C$="apply RSX Professional usinq" 

290 D$="only Basic commands and still" 

300 E$="having an absolutely profes-" 

310 F$="sional screen display." 

320 FOR X=1 TO 10: DELOPTION,x:NEXT 
SETBORDER,1,0,2: I NAME.1,0 


330 

340 


MENU,"",a£,b$'c$,d$,e$,f$,""." 

Author ","",23,2," Introdu 

ction "," Press any key " 

350 A$="Now you will be offered" 

360 B$="to cnoose one of the" 

370 C$="options and see some of" 

380 D$="possibilities of this" 

390 E$="powerfull program." 

400 ISETBORDER,0,1,1 

410 |MENU,"",as,b$,c$,d$,e$,"",40,9," A 
ny key to procede " 

420 ICLOSEWINDOW 

430 I TEXT,0,0,1,0,"Metal Bands RamDisk 
Colors Graphics System" 

440 GOTO 460 
450 ICLOSEWINDOW 
460 RESETOPTIONS 
470 a=l 

480 ON d GOTO 490,1320,1740,2170,1990 
490 GOSUB 1030 

500 |MENU,A$,B$,C$,D$,E$,F$,G$,0,1,"","" 
510 a=PEEK(&BF00):IF a>239 THEN GOTO 2110 
520 ON a GOTO 530,590,650,710,770,830,890 
530 GOSUB 950 

540 IF b>239 THEN ICLOSEWINDOW:GOSUB 990 :G 
OTO 510 

550 a$="Tom Araya - Vocals, Bass":b$="Kerr 
y King - Lead Guitar":c$="Jeff Hanneman - 
Lead Guitar":d$="Dave Lombardo - Drums":e$ 


[1779] 

[2684] 

[2092] 

[323] 

[2168] 
[961] 
[301] 
[3022] 

[351] 
[1550] 
[2201 ] 

[2923] 

[2008] 

[3907] 

[6373] 


[1682] 

[350] 

[2375] 

[1591] 
[1155] 
[1376] 
[350] 
[ 1201 ] 
[1874] 
[350] 
[3708] 
[2736] 
[2869] 
[3614] 
[2226] 
[3208] 
[2628] 
[1823] 
[7162] 


[3051] 

[2681] 

[2735] 

[2176] 

[1317] 

[1819] 

[4987] 

[1184] 

[4823] 

[456] 

[1184] 

[2097] 

[327] 

[623] 

[869] 

[2440] 

[3371] 

[2104] 

[830] 

[3502] 

[10877] 


560 f$="Reign In Blood":g$="Angel Of Death [2767] 

[829 ] 
[425] 
[830] 


570 GOSUB 1070 
580 GOTO 540 
590 GOSUB 950 


12 ’ 91/1 ’92 CPC 27 


















Programm 


600 IF b>2 39 THEN |CLOSEWINDOW:GOSUB 990:G 
OTO 510 

610 a$="Max Cavalera - Vocals, Rhythm Guit 
ar":b$="Adreas Kisser - Lead Guitar":c$-"P 
aulo Jr. - Bass":d$ = "Igor Cavalera - Drums 
n.e$="" 

620 f$="Beneath The Remains":g$="R.I .P. (R 
est In Pain)" 

630 GOSUB 1070 
640 GOTO 600 
650 GOSUB 950 

660 IF b>239 THEN ICLOSEWINDOW:GOSUB 990:G 
OTO 510 

670 a$="James Hetfield - Vocals, Lead Guit 
ar":b$="Kirk Hammett - Lead Guitar":c$="Ja 
son Newsted - Bass":d$="Lars Ulrich - Drum 

g II . 0$ = II H 

680 f$="Ride The Lightning":g$="Orion" 

690 GOSUB 1070 
700 GOTO 660 
710 GOSUB 950 

720 IF b>239 THEN |CLOSEWINDOW:GOSUB 990:G 
OTO 510 

730 a$="Snake - Vocals":b$ "Piggy - Lead G 
uitar" : c$ = "Blacky - Bass":d$="Away - Drums 
":e$="" 

740 f$="Killing Technology":g$="Tribal Con 
victions" 

750 GOSUB 1070 
760 GOTO 720 
770 GOSUB 950 

780 IF b>239 THEN |CLOSEWINDOW:GOSUB 990:G 
OTO 510 

790 a$="Joe Belladonna - Vocals":b$="Dan S 
pitz - Lead Guitar":c$="Scott Ian - Rhythm 
Guitar":d$="Frank Bello - Bass":e$="Charl 
ie Benante - Drums" 

800 f$="Among The Living":g$="Indians" 

810 GOSUB 1070 
820 GOTO 780 
830 GOSUB 950 

840 IF b>239 THEN ICLOSEWINDOW:GOSUB 990:G 
OTO 510 

850 a$="Chuck Billy - Vocals":b$="Alex Sko 
lnick - Lead Guitar" :c$="Eric. Peterson - R 
hythm Guitar":d$="Greg Christian - Bass":e 
$="Louie Clemente - Drums" 

860 f$="The Legacy":g$="Over The Wall" 

870 GOSUB 1070' 

880 GOTO 840 
890 GOSUB 950 

900 IF b>239 THEN ICLOSEWINDOW:GOSUB 990:G 
OTO 510 

910 a$="Steve Grimmett - Vocals":b$="Rob T 
rotman - Lead Guitar":c$="Nige Rockett - L 
ead Guitar":d$="James Kinder - Bass":e$="S 
teve Grice - Drums" 

920 f$="Let There Be Rock":g$="Flame Of Th 
e Antichrist" 

930 GOSUB 1070 
940 GOTO 900 
950 GOSUB 1220 

960 I MENU, "" , A$,B$,C$,"",6,a+ 2 , "" , " " 

970 b :; PEEK (&BF00 ) 

980 RETURN 
990 GOSUB 1030 

1000 IMENUONLY,A$,B$,C$,D$,ES,F$,G$,0,1,"" 

II II 

1010 a=PEEK(&BF00) 

1020 RETURN 
1030 (DEFAULT 

1040 A$="Slayer":B$="Sepultura":C$="Metall 
ica":DS="Voivod":E$="Anthrax":F$="Testamen 
t":G$="Onslaught" 

1050 ISETBORDER,1,0,1: | MENUINPUT, S.BF00 , INT 
(a) 

1060 RETURN 
1070 |DEFAULT 

FOR x=l TO 10 :|DELOPTION,X:NEXT 
|SETBORDER,1,0,3 
6n (b-1) GOTO 1110,1180,1200 
1110 IF e$="" THEN GOTO 1160 
1120 |MENU,"",a$,b$,c$,d$,e$,,13,a+b+3," 

II II II 

1130 |CLOSEWINDOW:GOSUB 1220:|MENUINPUT,&B 
F00, .INT(b) 

1140 |MENUONLY,"",A$,B$,C$,"",6,a + 2 

1150 b=PEEK(&BF00):GOTO 970 

1160 I MENU, , aS , b$ , c$, dS , " " , 13, a+b+3, " " , " 

ii 

1170 GOTO 1130 

1180 |MENU,"",f$,"",13,a + b+ 3,"","" 

1190 GOTO 1130 

1200 |MENU,g$,13,a+b+3,"" , "" 

1210 GOTO 1130 
1220 |DEFAULT 


1080 

1090 

1100 


13502] 
[11858 ] 

[4970] 

[829 ] 
[413] 
[830] 
[3502] 

[94181 


[3353] 

[829] 
[369 ] 

[830] 
[3502] 

[7663] 


[4750] 

[829 ] 
[421] 
[830] 
[3502] 

[10916] 


[2630] 

[829] 
[409] 

[830] 
[3502] 

[11877] 


[2545] 
[829 ] 
[332] 
[830] 
[3502] 

[11339] 


[5504] 

[829] 

[ 320 ] 

[871] 

[2500] 

[938] 

[555] 

[869] 

[3166] 

[1374] 

[555] 

[1268] 

[7374] 


[4577] 

[555] 

1268] 

2628] 

1470] 

[1573] 

[894] 

[2924] 

[3652] 

[1885] 
[1478] 
[3414] 

[345] 

[2421] 

[345] 

[2344] 

[345] 

[1268] 


1230 A$="Band members":B$="Best LP":C$="Be |4011] 
st song" r , 

[555] 
[2582] 
[3195] 


1240 |DELOPTION,1:(DELOPTION,5 
1250 RETURN 

1260 |DEFAULT:|SETBORDER,1,0,3 

1270 a$="Directory":b$="Load":c$="Save":d$ 

="Rename":e$="Delete" 

1280 MENUINPUT,&BF00,a 

1290 OPENWINDOVJ,24,21,32,4," Possible Err 
ors ","" 

1300 SETBORDER,1,0,1 

1310 WINDOW 26,55,23,24:RETURN 

1320 ' RamDisk „ A 

1330 GOSUB 1260: |MENU,a$,b$,c$,d$,e$,14,1 , 

II II II II 


|CLOSEWIN 


1340 |SETBORDER,0,1,2 
1350 a=PEEK(&BF00):IF a>239 THEN 
DOW:GOTO 2110 

1360 ON a GOTO 1370,1420,1500,1600,1680 
1370 IOPENWINDOW,20,3+2,42,17,""," RamDisk 
Catalogue " 

1380 WINDOW #1,22,61,5,19:WINDOW SWAP 0,1 
1390 |CAT:WINDOW SWAP 0,1 
1400 CALL &BB06 

1410 |CLOSEWINDOW:|MENUONLY,a$,bS,c$,d$,e$ 
,14,1GOTO 1340 

1420 IOPENWINDOW,20,3+2,29,5,""," RamDisk 
Loading " 

1430 |TEXT,22,3+4,1,0,"File to load:" 

1440 WINDOW #2.37,47,3+5,3+5 
1450 INPUT #2,"",file$ 

1460 (TEXT,22,a+4,l,0,"At location:" 

1470 INPUT #2,"",address 

1480 IF address=0 THEN |LOAD,file$ ELSE |L 
OAD,file$,address 
1490 PRINT:GOTO 1410 

1500 |OPENWINDOW,20,a+2,29,5,""," RamDisk 
Saving " 

1510 WINDOW #2,37,47,a+5,a+5 

1520 |TEXT,22,a+4,1,0,"File to save:" 

1530 INPUT #2,"",file$ 

1540 |TEXT,22,a+4,l,0,"From address:" 

1550 INPUT #2,"",address 

1560 |TEXT,22,a+4,1,0,"With length:" 

1570 INPUT #2,"",length 

1580 |SAVE,file$,address,length 

1590 PRINT:GOTO 1410 

1600 |OPENWINDOW,20,a+2,29,5,""," RamDisk 
Renaming " 

1610 WINDOW #2,37,47,a+5,a+5 
1620 |TEXT, 22 ,a+4, 1 ^ 0 ,"Old filename:" 

1630 I 
1640 
165 0 
1660 

1670 num.owv X-.AW . , 

1680 (OPENWINDOW,20,a+2,29,5,""," RamDisk 
Deleting " 

1690 WINDOW #2,37,47,a+5,a+5 

1700 |TEXT,22,a+4,l,0,"Delete file:" 

1710 INPUT #2,"",file$ 

1720 |DELETE,file$ 

1730 PRINT:GOTO 1410 
1740 ' Colors 

1750 |DEFAULT:|MENUINPUT,&BF00,a:|SETBORDE 
R,1,0,1 

1760 a$="Pen":b$="Paper":c$="Border" 

1770 |MENU,a$,b$,c$,24,1 
1780 SETBORDER,0,1,2 

1790 a^PEEK(&BFO0):IF a>239 THEN GOTO 2110 
1800 ON a GOTO 1810,1860,1890 
1810 d$=" new pen:" 

1820 GOSUB 1920 
1830 INK 1,color 

|MENUONLY,a$,b$,c$,24,1,""," " 

GOTO 1790 


TEXT,22,3+4,1,0, t 
INPUT #2,"",filelS 
|TEXT,22,a+4,1,0,"New filename:" 
INPUT #2 , "",file2$ 
|RENAME,file2$,filel$ 

PRINT:GOTO 1410 


1840 

1850 


[1544] 

[2834] 

[1472] 
[2786] 
[641] 
[2161] 

[1822] 

[4177] 

[1800] 

[3116] 

[3211] 

[2218] 

[ 393 ] 
[2881] 

[2978] 

[2130] 

[1663] 
[685] 
[1259] 
[1066] 
[2899] 

[821 ] 
[1929] 

[1663] 
[1900] 
[685] 
[1931] 
[1066] 
[1567] 
[1144 ] 

[2810] 

[821] 

[2375] 

[1663] 

[1466] 

[773] 

[2551] 

[779] 

[1924] 

[821] 

[3282] 

[1663] 

[1027] 

[685] 

[12551 

[821] 

[632] 

[2876] 

[2545] 
[2165] 
[1822] 
[3371] 
[1209] 
[225] 
[891] 
[627] 
[2601] 
341] 


1860 

d$="new paper:" 

[353] 

1870 

GOSUB 1920 

[891] 

1880 

INK 0,color:GOTO 1840 

[2737] 

1890 

d$-"new border:" 

[928] 

1900 

GOSUB 1920 

[891] 

1910 

BORDER color:GOTO 1840 

[1517] 

1920 

|OPENWINDOW,30,a+ 2,25,5,"", " " 

[1265] 

1930 

|TEXT,32,a+4,1,0,"Enter "+d$ 

[1391 ] 

1940 

WINDOW #2,51,53,a+5,a+5 

[1573] 

1950 

INPUT #2,"",color 

[783] 


N GOTO 1950 
1970 {CLOSEWINDOW 
1980 RETURN 
1990 ' System 

2000 |DEFAULT:|MENUINPUT,&BF00,a:|SETBORDE 
R,1,0,1 

2010 a$="Return to BASIC":b$="Exit to AMSD [3619] 
OS":c$="Exit to CPM" 

2020 (MENU,a$,b$,c$,44,1,"","" 

2030 a=PEEK(&BF00):IF a>239 THEN GOTO 2110 


[1184] 

[555] 

[749] 

[2876] 


'2373 

3371 
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Programm 


2040 ON a GOTO 2050,2060,2070 
2050 ICLOSEWINDOW: CLOSEWINDOW: 
:WINDOW 1,80,1,25:PRINT CHR$(10 

DOW: 


2060 I CLOSEWINDOW: ICLOSEWINDOW: 

:I BASIC 

2Ö70 FOR x=l TO 10: IDELOPTION,x: 


RAMDISKOFF 
: END 

RAMDISKOFF 


2080 

2090 

DISK 


. NEXT 

SETBORDER,1,0)2: I NAME,1,0 
MENU,"MAKE SURE THAT YOUR SYSTEM 
S READY 17,10," Caution Pr 

ess any key " 

2100 ICLOSEWINDOW:ICLOSEWINDOW:ICLOSEWINDO 

W:IRAMDISKOFF:ICPM 

2li0 IF a>242 TUEN GOTO 2140 

2120 d=d-l:IF d=0 THEN d=5 

2130 GOTO 450 

2140 IF a>243 THEN GOTO 450 
2150 d=d+l:IF d=6 THEN d=l 
2160 GOTO 450 
2170 ' Graphics 

2180 I DEFAULT: I MENUINPUT,&BF00,a: I SETBORDE 

R,1,0,1 

2190 a$="First graphic":bS="Second graphic 
":c$="Both graphics" 

2200 I MENU,a$,b$,c$,33,1,"","" 

2210 a=PEEK(&BF00):IF a>239 THEN GOTO 2110 

2220 SETBORDER,0,1,2 

2230 ON a GOTO 2240,2380,2520 

2240 JOPENWINDOW,42,3,38,18,""," First gra 

phic " 

2250 FOR C=1 TO 60 
2260 MOVE XO(c)+336,yO(c)+32 
2270 DRAW xl(c)+336,yl(c)+32,1 
2280 NEXT 

2290 WHILE INKEY$="" 

2300 MOVE x0(c)+336,y0(c)+32 
2310 DRAW xl(c)+336,yl(c)+32,l 
2320 a=c-60:IF a<0 THEN a=162+a 
2330 MOVE x0(a)+336,y0(a)+32 
2340 DRAW xl(a)+336,yl(a)+32,0 
2350 C=C+1 : IF C=163 THEN c=l 
2360 WEND 
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2370 GOTO 2730 

2380 |OPENWINDOW,42,4,38,18,""," Second gr 
aphic 


1 + I6 


2390 FOR C=1 TO 60 
2400 MOVE X2 (C) ,y2(c 
2410 DRAW x3(c),y3(c)+16,l 
2420 NEXT 

2430 WHILE INKEY$="" 

2440 MOVE X2( c ), y2 ( C ) +16 
245 0 DRAW x3 (c) , y3 (c ) +16,1 
2460 a=c-60:IF a<0 THEN a=162+a 
2470 MOVE X2(a) ,y2(a)+16 
2480 DRAW X3(a),y3(a)+16,0 
2490 c=c+l:IF c=163 THEN c = l 
2500 WEND 
2510 GOTO 2730 

2520 IOPENWINDOW,0,5,38,18,""," 

hic " 

2530 |OPENWINDOW,42,5,38,18,"",' 

aphic " 

2540 FOR c=l TO 60 
2550 MOVE x0(c),y0(c) 

C ,yii 
c),y 2 < 
c),y3i 


First grap 
Second gr 


, 1 


,1 


2560 DRAW Xl 
2570 MOVE x2 
2580 DRAW x3 
2590 NEXT 
2600 WHILE INKEYS-"" 

2610 MOVE X0(c),y0(c) 

2620 DRAW xl(c),yl(c),1 
2630 MOVE x2(c),y2(c) 

2640 DRAW X3(c),y3(c),1 

2650 a=c-60:IF a<0 THEN a-162+a 

2660 MOVE x0(a),y0(a) 

2670 DRAW xl a ,yl a ,0 

2680 MOVE x2(a),y2 a 

2690 DRAW x3(a),y3(a),0 

2700 c=c+l:IF c=163 THEN C=1 

2710 WEND 

2720 ICLOSEWINDOW 

2730 CLOSEWINDOW:[SETBORDER,1,0,1:IMENUON 
LY,a$,b$,c$,33,1,"","" 

2740 GOTO 2210 
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VORTEX SYSTEM 2000 Festplatten 
für die JOYCE PCW 8256/8512/9512: 


Festplattengröjte: 

30 MB 

40 MB 

60 MB 

VORTEX Festplatte: 

684,- 

798,- 

997,50 

Mit zusätzl. 512 kB 
Speichererweiterung: 

883,50 

997,50 

1197,- 


Die VORTEX SYSTEM 2000 Festplatten mit/ohne zusätzl. 512 kB Speicherer- 
wciterung sind ein komplett anschlußfertiges Fcstplattcnsystem in separatem 
beigen Gehäuse inkl. CP/M Plus V. 1.8 H (PCW 8xxx) bzw. V. 2.4 H (PCW 
9512), Festplattcnhilfsprogrammcn sowie deutschem Benutzerhandbuch. 

Mit LocoScript V. l.xx bzw. 2.xx können Sie auf den VORTEX SYSTEM 2000 
Festplatten komfortabel arbeiten. Sämtliche LocoScript, -File, -Mail & -Spell 
V. 2.3x Programme sind zusammen mit einer VORTEX SYSTEM 2000 Fest¬ 
platte einsetzbar. 


LocoScript V. 2.3x "Update” 39,90 DM 


Erncuerungsprogramm für LocoScript V. 2.xx Originaldiskcttc mit neuem dt. 
Installationsprogramm & dt. (nstallationsanleitung für die JOYCE PCW 8xxx. 


LocoScript V. 2.3x ”Bundles”, usw. ... 


Ausführliche Informationen dazu und über viele weitere Produkte für alle 
AMSTRAD / Schneider JOYCF. PCW 8256/8512/9512 bekommen Sie nach der 
Übersendung von 3,-- DM in Briefmarken postwendend zugesandt. 


LocoScript PC V. l.xx Dt. 478,80 DM 


LocoScript PC V. l.xx in Dt. mit dt. Installationsprogramm & dt. -hinweisen 
sowie englischen Handbüchern für PC/XT/AT/386/486, "Notebooks”, usw.... 
Deutsche Handbücher können nach Fertigstellung 1992’ für 119,70 DM nach- 
bezogen werden. LocoScript PC V. l.xx Dt. kostet inkl. der dt. Handbücher 
nach deren Fertigstellung 1992’ 478,80 DM ♦ 119,70 DM = 598,50 DM. 

WIEDMANN 

Unternehmensberatung & Handel 

* Korbiniansplatz 2 * D-8045 Ismaning * S 089 - 965029 * 

* Swebenhöhe 47 * D-2000 Hamburg 72 * * 040 - 6436447 * 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3“-Zweltlaufwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betriebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 

- Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS, 

- Es kann Software mäßig zwischen X-DDOS und AMSDOS umgeschaltet werden, 

- Es werden Anpassungsprogramme tür CP/M 2.2 und CP/M Plus mitgeliefert 

- Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw, lautfähig. 

- Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine RG-stkapazität von 
208 KByte. 

- Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist, wurde völlig auf 
einen Kopierschutz verzichtet. 

- Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 


X-DDOS-EPROM, Software S Beschreibung 89,- DM 

224-KByte EPROM-Karte, X-DDOS, Software & Beschreibung 239,- DM 

5.25" oder 3.5' X-Laufwerk. 224-KByte EPROM-Karte, X-DDOS, Softw. & Beschr. 439,- DM 

5.25" oder 3.5" X-Lautwerk. RAM-Erw. ohne RAMs, X-DDOS, Softw. & Beschr. 439,- DM 


Festplatte HD20 für CPC 464/664/6128 

- Festplatte: 20 MByte (3.5" Seagate. NEC, Kyocera oder Mlniscribe) 

- Interface mit durchgeführtem Expansionsport. Busputferung und EPROM-Sockel zur 
Aufnahme des erweiterten X-DDOS 2.10 Betriebssystems 

(ROM-Nummer im Bereich von 1-7 frei wählbar) 

- 4 Partitionen ä 5152 kByte (als Lautwerke 'D:' bis 'G:' ansprechbar) 

- 512 Directory-Einträge / Partition 

- CP/M Plus Einbindung und CP/M 2.2 Einbindung mit 63k TPA 

- 63k CP/M 2.2 und CP/M Plus erfordern 128k RAM 

(CPC 464/664 mit mindestens 64k RAM-Erweiterung oder CPC 6128) 

- CP/M 2.2 Einbindung mit 43k TPA (auch ohne RAM-Erweiterung) 

- Softwareuhr und TIMEROM + Einbindung (Echtzeituhr unter CP/M Plus) 

- hohe Kompatibilität zu allen gängigen Hard- und Softwareprodukton (z.B. DOBBERTIN oder 
dk'tronics RAM-Erweiterung, EPROM-Karte. Eprom-Soflware wie RDOS, MAXAM, PROTEXT, 
PROMERGE...) 

- Umschalten aut AMSDOS möglich 

- sehr hohe Zugriffsgeschwindigkeit (mit RAM-Disc vergleichbar) 

20 MByte Harddisk inkl. Controller, Netzteil, Gehäuse, Interface-Karte mit X-DDOS 2.10 Software 
und Beschreibung auf Diskette inkl, aller notwendigen Anschluß-Kabel 999.- DM 


Btx Softwaredekorder für CPC ohne FTZ-Zulassung 

Hard- und Softwarevorraussetzungen: 

- CPC 6128 oder CPC 464/664 mit mindestens 64k RAM-Erweiterung & CP/M Plus 

- serielle Schnittstelle (Schneider oder Amstrad) 

- 1200 Baud Modem (HAYES kompatibel) 


Btx Soltwaredokoder Inkl. Beschreibung auf 3“-Diskette: DM 99,- 


3“-Disketten Maxell CF2 10 Stück 

DM 59,- 

DOBBERTlfl 

Industrie-Elektronik GmbH 
Brahmsstraße 9,6835 Brühl 

Telefon 06202/71417 

Telefax 06202 / 75509 
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Elektronikers Freund 

Nie wieder Probleme mit Widerständen 

Jeder, der gern an elektronischen Schaltungen bastelt, kann wohl ein Lied 
davon singen: Man hat zwar einen beachtlichen Vorrat an Widerständen, 
aber der, den man gerade benötigt, ist nicht dabei. Jetzt geht die große 
Grübelei los, welche Widerstände man am besten kombiniert, um auf den 
gesuchten Wert zu kommen. Das ist jetzt vorbei. 


Das BASIC-Programm "Elektronikers 
Freund“ für den CPC beschäftigt sich 
mit einem der meistgebrauchten elek¬ 
tronischen Bauteile, dem (Schicht-)Wi- 
derstand. Der Umgang mit Wider¬ 
stands-Werten und -kombinationen ist 
allerdings nicht immer ganz einfach. 
Die Widerstände sind bekannterweise 
nicht mit Dezimalzahlen, sondern mit 
Farbringen beschriftet. Zu allem Über¬ 
fluß gibt es auch noch zwei unter¬ 
schiedliche Codes — das hier abge¬ 
druckte Programm verwendet den 
klassischen Code, der auf drei Ringen 
für den Widerstandswert beruht. Wenn 
man nun die Werte der Farben, von de¬ 
nen es immerhin 12 verschiedene gibt, 
nicht gerade auswendig kennt, bleibt 
nur der Griff nach einer Umrechnungs¬ 
tabelle (“...aber wo hab’ ich sie denn 
nur hingelegt ?“). 

Helferlein für 
Lötkolbenschwinger 

Für die Umrechnerei sind die beiden 
ersten Teile des Programms zuständig. 
Im Menü erscheinen sie als Punkt eins 
und zwei. Unter Mcnüpunkt eins kön¬ 
nen die Farbringe in eine Dezimalzahl 
und unter Menüpunkt zwei eine Dezi¬ 
malzahl in Farbringe umgewandclt 
werden. 

Der dritte Teil des Programms sollte 
für jeden Elektronikbastler ein beson¬ 
derer Leckerbissen sein: die Verwal¬ 
tung der Bestände. 

Das hauseigene Sortiment an Wider¬ 
ständen kann noch so gut ausgestattet 
sein, wenn es drauf ankommt, fehlt un¬ 
ter Garantie der richtige Widerstand. 
Da hilft kein Zähneknirschen und Haa¬ 
reraufen, ein Besuch im Elektronik¬ 
shop ist nun unabdingbar. 

Oder etwa doch nicht? Man könnte 
doch auch zwei Widerstände ersatz¬ 
weise parallel oder seriell schalten, um 
den gewünschten Widerstand zu errei¬ 
chen. Während man die serielle Schal¬ 
tung von zwei Widerständen noch ganz 
leicht im Kopf ausrechnen kann (Rg = 


RI + R2), vergeht einem schon die 
Lust, eine Parallelschaltung zu über¬ 
prüfen (1/Rg = l/RI + 1/R2). 

Das ist dann genau die richtige Aufga¬ 
be für den hauseigenen Rechensklaven 
— den CPC. Hat man erst einmal seine 
Widerstände eingegeben (dies kann 
mittels Dezimalzahl oder auch mittels 
der Farbringe geschehen), können die¬ 
se abgespeichert werden. Weiterhin 
kann der Bestand gelistet und korrigiert 
werden. Im eigentlich wichtigsten Me- 
niipunkl “Ersatzwiderstand suchen“ 
werden dann alle Widerstände mitein¬ 
ander verglichen und die besten Mög¬ 
lichkeiten als “Top Five“ ausgegeben. 



1. Umrechnen der Farbringe in Dezi¬ 
malzahl: Die Auswahl der einzelnen 
Farben geschieht über das Fenster am 
rechten Bildschirmrand. Den Zeiger 
innerhalb dieses Fensters können Sie 
mittels der Cursortasten hoch und run¬ 
ter bewegen. Mit <RETURN > wäh¬ 
len Sie die Farbe aus. 

2. Umrechnen der Dezimalzahl in 
Farbringe: Zuerst werden Sie nach der 
Dezimalzahl gefragt, die Sic umwan¬ 
deln möchten. Sie sollten bei der Ein¬ 
gabe darauf achten, wirklich nur die 
Zahl einzutippen und keine Leerzei¬ 
chen vor oder hinter der Zahl, da diese 
das Ergebnis verfälschen würden. 
Nachdem die Farben errechnet worden 
sind, werden Sie gefragt, ob Sie eine 
Farbdarstellung wünschen. Nach dem 
Motto: “Ein Bild sagt mehr als tausend 
Worte“, wird der Widerstand mit den er- 
rechneten Farbringen darauf dargestellt. 


Variablen-Referenz 

r(), anz(): in diesen Arrays werden die 
eingegebenen Widerstände gespeichert, 
xl, yl, x2, v2 : Textpositionen für die 
Umrandung eines Windows für die Un- 
terroutine fzeile 3910-3970). 
i$ : dient der Invertierung von Pen- und 
Paperfarbe. 

eing : bei Eins geschah der Aufruf über 
“Widerstände eingeben“, bei Null aus 
dem Hauptmenü heraus, 
zahl : enthält die gewählte Farbe aus 
dem Farbwahlmenü und wird von der 
Routine zurückgegeben (Zeile 830). 
farbe() : Zwischenspeicherung der ge¬ 
wählten Farben 

r : in r wird schrittweise der Widerstand 
ausgerechnet (Zeile 500-550). 
high : Anzahl der Einträge im Farb¬ 
wahlmenü. 

wahly : aktuelle Position im Farbwahl- 
menü. 

wahlyy : alte Position im Farbwahlme¬ 
nü. w'as wichtig zum Löschen des alten 
Zeigers ist (Zeile 770-850). 
anzahl: Anzahl der Widerstände plus I. 
dif() : Differenzen zum gewünschten 
Widerstand. Die geringste Differenz 
steht am höchsten, deshalb werden die 
Variablen zu Beginn auch auf 999999 
gesetzt (Zeile 1630). 
rs : der zu suchende Widerstand (Zeile 
1660). 

ra : in ra wird jeweils der Widerstand, 
der sich aus der aktuellen Kombination 
ergibt, gespeichert (Zeile 1710.1730). 
top() : die besten Widerstände aus der 
“Top Five“. 

r 1 (), r20 : die beiden Ausgangswider¬ 
stände. die zu einem guten Ergebnis in 
der “Top Five“ führten, 
first: ein Flag. Sollte beim Sortieren der 
“Top Five" keine Veränderung einge¬ 
treten sein, wird sie auch nicht neu auf 
den Bildschirm ausgegeben (Zeile 
1930). 

tlag : Hilfsflag für den Sortieralgo¬ 
rithmus. 

pro/ : die prozentuale Abweichung der 
Differenz zum gewünschten Widerstand 
(Zeile 1950,1800). 

akty : enthält einen Zeiger innerhalb des 
r()-Arrays,bei dem mit dem Auflisten 
begonnen wird (Zeile 3180-3470). 
aktend : enthält parallel zu akty einen 
Zeiger, der auf das letzte Element aus r() 
zeigt, das gelistet werden soll, 
y : enthält die Zeigerposition im Fen¬ 
ster. (Zeile 3300-3470) 
oldy : enthält jeweils die alte Zcigerpo- 
sition im Fenster. 

al,bl, a2,b2 : enthalten die in Grafik¬ 
koordinaten umgewandelten Daten aus 
xl,yl, x2,y2. 
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3. Ersatzwiderstand suchen: Wenn 
Sie diesen Menüpunkt wählen, kom¬ 
men Sie zunächst in ein Untermenü, 
das neben der eigentlichen Funktion 
noch weitere nötige Hilfsfunktionen 
enthält. 

Im Menüpunkt Widerstände eingeben 
sollten Sie zunächst Ihre vorhandenen 
Widerstände eingeben. Dies können 
Sie entweder mit Hilfe der Farbringe 
oder mittels Dezimalzahl tun. Die Ein¬ 
gabe mit Hilfe der Farbringe geschieht 
wie oben beschrieben. 

Wenn der Widerstand feststeht, wer¬ 
den Sie weiterhin gefragt, ob Sie nur 
einen oder mehrere von diesem Wider¬ 
stand haben. Dies ist wichtig für die 
Ersatzfunktion. 

Die Möglichkeiten innerhalb der Spei¬ 
chern-Funktion werden dort weitge¬ 
hend erläutert. Auch hier wurde ver¬ 


sucht, dem Anwender möglichst viel 
Komfort zukommen zu lassen. Mittels 
< RETURN > wird einfach ein Stan¬ 
dardname gewählt, der auch beim Ein¬ 
laden nach dem selben Prinzip gewählt 
werden kann. 

Bestandspflege 

Uber den Menüpunkt fünf. Widerstün¬ 
de auflisten/korrigieren, kommen Sie 
schließlich in eine An Editicrobcrflä¬ 
che. In einem Fenster werden die Wi¬ 
derstände aufgelistet. 

Mittels < SPACE> können Sie wei¬ 
terblättern. Mit den Cursortasten (rauf 
und runter) kann ein Widerstand ange¬ 
wählt werden. 

In dem kleinen Fenster rechts können 
Sie nun wieder über die Cursortasten 


(rechts und links) auswählen. Die Be¬ 
stätigung erfolgt wieder über < RE¬ 
TURN >. 

Das Programm funktioniert auf allen 
CPC-Typen. Tippen Sie es ab und spei¬ 
chern Sie es beispielsweise unter dem 
Namen EF.BAS. 

Nun, jedem Elektroniker der öfter mit 
Widerständen jongliert, ist geholfen. 
Selbst aus dem größten Sortiment sollte 
es problemlos möglich sein, eine pas¬ 
sende Widerstandskombination hcraus- 
zufinden. Die Suchroutine benötigt 
zwar etwas Zeit, aber dies sollte in ei¬ 
nem solchen Fall keine Rolle spielen. 
Die manuelle Suche kann auf alle Fälle 
noch länger dauern. Also Schluß mit 
den Problemen mit unpassenden Wer¬ 
ten. 

Christian Leubner/jg 


10 /*********************************** [1460] 

20 ' ELEKTRONIKERS FREUND [837] 

30 ' [117] 

40 ' (c) 1991 Christian Leubner [1097] 

45 ' & CPC International [2118] 

50 '*********************************** [1460] 

60 DIM zahl(20),s$(20) [462] 

70 DIM r(100),anz(100) [272] 

80 MODE 2 [513] 

90 CALL &BC02 : PEN 1 : PAPER 0 [1067] 

100 INK 1,26:BORDER 0:INK 0,0 [1402] 

110 WINDOW 2,79,6,24 [961] 

120 Xl=l:yl=5:x2=80:y2=25 [1947] 

130 GOSUB 3910 [1003] 

140 WINDOW #2,2,79,2,3 [1094] 

150 xl=l :yl=l:x2=80:y2=4 [1516] 

160 GOSUB 3910 [1003] 

170 CLS [91] 

180 CLS#2 [372] 


190 PRINT#2,SPC(28)Elektronikers Freund [4042] 


200 PRINT#2,SPC(22)"written by Christian L 
eubner in 1991" 

210 i$=CHR$(24) 

220 LOCATE 34,2:PRINT i$" Hauptmenue "i$ 
230 LOCATE 24,5:PRINT i$"[l]"i$" Farbring 
e in Zahl umrechnen" 

240 LOCATE 24,7:PRINT i$"[2]"i$" Zahl in 
Farbringe umrechnen" 

250 LOCATE 24,9:PRINT i$"[3]"i$" Ersatzwi 
derstand heraussuchen" 

260 LOCATE 30,12:PRINT i$" Bitte waehlen : 
"i$; 

270 a$=INKEY$ : IF a$="" TUEN 270 
280 a=VAL(a$) 

290 IF a<l OR a>3 THEN 270 
300 PRINT a 

310 ON a GOSUB 360,930,1450 
320 GOTO 170 
330 '***** 

340 'Umrechnung: Farbringe in Zahlen 
350 '***** 

360 CLS 

370 WINDOW #3,67,77,8,21 
380 xl=66:yl=7:x2=78:y2=22 
390 GOSUB 3910 

400 LOCATE 1,1 : PRINT"Bitte geben Sie die F 
arbringe von links nach rechts ein:" 

410 FOR Z=1 TO 4 

420 IF z=4 AND eing=l THEN 490 

430 GOSUB 620 

440 IF zahl=-l THEN r=-l:RETURN 

450 farbe(z)=zahl 

460 LOCATE 1,3+Z 

470 IF Z=4 THEN PRINT 

480 PRINT " "i$"Farbring";z;":"i$" ";s$ 

490 NEXT Z 

500 r=l0*farbe(1) 

510 r=r+farbe(2) 


[4400] 

[1139] 

[1538] 

[4971] 

[6582] 

[4267] 

[3591] 

[1338] 
[ 956] 

[ 907 ] 

[401] 

[1069] 

[ 427 ] 

[174] 

[2957] 

[174] 

[91] 

[1275] 

[1095] 

[1003] 

[4679] 

[1043] 

[1378] 

[921] 

[865] 

[415] 

[837] 

[773] 

[3138] 

[354] 

[ 886 ] 

[1296] 


520 IF färbe(3)<1 AND farbe(3)>0 THEN 550 
530 r=r*(10 A farbe(3)) 

540 GOTO 560 
550 r=r*farbe(3) 

560 IF eing=l THEN RETURN 
570 LOCATE 1,12 

580 PRINT"Der Widerstand betraegt"r;CHR$(1 
91) 

590 PRINT" mit einer Toleranz von"farbe( 
4 ) " % " 

600 PRINT: PRINT"-Taste-": CALL &BB06 

610 RETURN 

620 RESTORE 870 

630 IF z=3 THEN high=12 ELSE high=10 
640 IF z-4 TH PIN RESTORE 890:high=4 
650 GOSUB 680 
660 RETURN 
670 '**** 

680 'Auswahlfenster: Farben 

690 '**** 

700 CLS#3 

710 FOR i=l TO high 
720 READ s$(i),zahl(i) 

730 PRINT#3,s$(i) : NEXT 
740 high=high+l 

750 s$(high)="ABBRUCH":zahl(high)=-l 
760 PRINT#3,s$(high ) 

770 wahly=l:wahlyy=wahly 

780 LOCATE#3,11,wahlyy : PRINT#3," ": LOCATE# 
3,11 , wahly : PRINT#3, "<" 

790 wahlyy=wahly 

800 a$=INKEY$ : IF a$ = "" THEN 800 

810 IF a$=CHR$(240 ) THEN wahly--=wahly-l 

820 IF a$=CHR$(241) THEN wahlyr=wahly+l 

830 IF a$=CHR$(13) THEN s$=s$(wahly ): zahl= 

zahl (wahly) : RETURN 

840 IF wahly<1 THEN wahly=l 

850 IF wahly>high THEN wahly=high 

860 GOTO 780 

870 DATA schwarz,0,braun,1,rot,2,orange,3, 
gelb,4,gruen , 5 , blau , 6 

880 DATA violett,7,grau,8,weiss, 9 ,gold,0.1 
,Silber, 0.01 

890 DATA braun,1 , rot,2,gold,5,Silber,10 
900 '***** 

910 'Umrechnung: Zahl in Farbringe 
920 '***** 

930 CLS 

940 lNPUT"Gesuchter Widerstand: ",a$ 

950 IF a$="" THEN RETURN 

960 färbe(3) =LEN(a$)-2 

970 IF INSTR(1 , a$, ".") >0 THEN 1100 

980 färbe(1)=VAL(LEFT$(a$ , 1)) 

990 färbe(2)=VAL(MID$(a$,2,1)) 

1000 RESTORE 870 
1010 FOR i=0 TO 11 
1020 READ s$(i),zahl(i) 

1030 NEXT 

1040 FOR i=L TO 3 


[905] 
[1290] 
[ 373 ] 
[789 ] 

[ 1547] 

[724] 

[4450] 

[2442] 


[1598] 

[555] 

[725] 

[2081] 

[696] 

[ 972 ] 

[555] 

[104] 

[1689] 

[104] 

[371] 

[ 866 ] 

[742] 

[1075] 

[403] 

[ 2102 ] 

[ 573] 

[ 1102 ] 

[3223] 


[404] 

[1304] 

[702] 

[ 992 ] 
[2837] 


[925] 

[1397] 

[409] 

[5593] 


[1969] 


[174] 

[1620] 

[174] 

[91] 

[3365] 

[1147] 

[1140] 

[627] 

[944] 

[1862] 

[ 725 ] 

[508] 

[ 742 ] 

[ 350 ] 
[435] 
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1050 LOCATE 1,4+i:PRINT"Farbring"i": "sS(f 
arbe(i)) 

1060 NEXT i 

1070 PRINT:PRINT"Moechten Sie eine Farbdar 
Stellung ? ( /n]" 

1080 a$=UPPER$(INKEYS):IF a$="" THEN 1080 
ELSE IF a$="N" THEN RETURN ELSE 1180 
1090 GOTO 1180 
1100 zahl=VAL(a$) 

1110 IF LEN(a$)=3 THEN färbe(3)=10:zahl=za 
hl*10 

1120 IF LEN(a$ ) -4 THEN f arbe( 3) = 11: zahl=za 
hl*100 

1130 a$=RIGHT$(STR$(zahl),LEN(STR$(zahl))- 
1) 

1140 GOTO 980 
H50 '**** 

1160 'Farbdarstellung des Widerstandes 
1.170 '**** 

1180 MODE 1 

1190 INK 0,10:BORDER 10 
1200 a$=CHR$(206) 

1210 PRINT TAB(5);STRINGS(31,a$) 

1220 PRINT TAB(4);STRINGS(33,a$) 

1230 PRINT TAB(4);STRINGS(33,a$) 

1240 PRINT TAB(3);STRINGS(35,a$) 

1250 PRINT STRINGS{39,a$) 

1260 PRINT TAB(3);STRINGS(35,a$) 

1270 PRINT TAB(4);STRINGS(33,a$) 

1280 PRINT TAB(4);STRINGS(33,aS) 

1290 PRINT TAB(5);STRINGS(31,a$) 

1300 RESTORE 1410 

1310 FOR i=0 TO 11:READ zahl(i):NEXT 
1320 FOR i=l TO 3 
1330 FOR j=l TO 9 

1340 IF farbe(i)>9 THEN a$=CHR$(207) E 

LSE a$=CHR$(143) 

1350 LOCATE i*10,j:INK i,zahl(farbe(l) 

):PEN i:PRINT STRINGS(3,a$) 

1360 NEXT j 

1370 LOCATE i*10,j+2:PRINT s$(farbe(i) 

) 

1380 NEXT 1 
1390 CALL &BB06 
1400 RUN 

1410 DATA 0,3,6,15,24,9,1,5,13,26,24,26 
1420 '***** 

1430 'Untermenue: Ersatzwiderstand herauss 
uchen 

1440 '***** 

1450 anzahl=l 
1460 CLS 

1470 LOCATE 34,2:PRINT i$" Untermenue "iS 
1480 LOCATE 24,5:PRINT i$"[l]"iS" 
iderstand suchen" 

1490 LOCATE 24,7:PRINT i$"[2]"i$" 
aende eingeben" 

1500 LOCATE 24,9:PRINT i$"[3]"i$" 
aende abspeichern" 

1510 LOCATE 24,11:PRINT i$"[4]"i$" 
taende einladen" 

1520 LOCATE 24,13:PRINT i$"[5]"i$" 
d listen/korrigieren" 

1530 LOCATE 24,15:PRINT i$"[6]"i$" 
k zum Hauptmenue" 

1540 LOCATE 30,18: PRINT i$" Bitte waehlen 

: "iS; 

1550 a$=INKEY$:IF a$="" THEN 1550 
1560 a=VAL(a$):IF a<l OR a>6 THEN 1550 
1570 PRINT a 
1580 IF a=6 THEN RETURN 
1590 ON a GOTO 1630,2100,2740,2930,3090 
1600 '**** 

1610 'Untermenue: Ersatzwiderstand suchen 
1620 '**** 

1630 FOR i=l TO 6:dif(i)=999999:NEXT 
1640 CLS 

1650 PRINT i$" Bestmoeglichen Ersatzwiders 
tand suchen "iS 

1660 PRINT:INPUT"Welchen Widerstand moecht 

en Sie erreichen: ",rs 

1670 IF rs=0 THEN 1460 

1680 FOR i=l TO anzahl-1 

1690 IF anz(i)<2 THEN x=i+l ELSE X=i 

1700 FOR j=x TO anzahl-1 

1710 ra=r(i)+r(j):a$="seriell" 

1720 GOSUB .1830 

17 30 ra=( l/r (i ))•»•( l/r( j )) : ra -ROUND(1/r 
a):a$="parallel" 

1740 GOSUB 1830 

1750 NEXT j 
1760 NEXT i 


Ersatzw 
Widerst 
Widerst 
Widers 
Bestan 


zuruec 


[3323] 

[375] 

[7078] 

[4246] 

[ 399 ] 
[1469 ] 
[3577] 

[3009] 

[2070] 

[496] 

[104] 

[2755] 

[104] 

[506] 

[980] 

[515] 

[ 1111 ] 

[1098] 

[1098] 

[1671] 

[1502] 

[1671] 

[1098 ] 
[1098] 

[HU] 

[749] 

[1128] 

[ 435 ] 
[604] 
[2847] 

[4249] 

[370] 

[2616 ] 

[ 375 ] 

[ 393 ] 
[243] 

[ 1670] 
[174] 

[ 2907 ] 

[174] 

[179] 

[91] 

[2135] 

[3692] 

[5766] 

[3914] 

[3179] 

[3562] 

[4312] 

[2421] 

[1435] 

[1197] 

[401] 

[1027] 

[1714] 

[104] 

[2733] 

[104] 

[1219] 

[91] 

[4259] 

[4174 ] 

[ 1101 ] 

[1241] 

[1782] 

[1654] 

[1752] 

[901] 

[4010] 

[901] 

[370] 

[375] 


1770 LOCATE 1,12 [724] 

1780 PRINT" Die beste Kombination, die ich [5746] 
anbieten kann, ist:" 

1790 PRINT r(rl(1))CHR$(191)" und"r(r2(1)) [4317] 
CHR$(191)" "s$(l) M zu schalten." 

1800 proz~ROUND((dif(1)*100)/rS) [1587] 

1810 PRINT" Die Abweichung vom gewuenschte [6269] 
n Widerstand betraegt"proz"%" 

1820 PRINT:PRINT"-Taste-":CALL &BB06:GOTO [2179] 
1460 

1.830 '*** [53] 

1840 'Top Five ausgeben [1101] 

1850 '*** [53] 

1860 top(6)=ra:s$(6)=a$:rl(6)=i:r2(6)=j:di [3532] 
f(6)=ABS(ra-rs) 

1870 first=0 [237] 

1880 flag=0 [263] 

1890 FOR k=l TO 5 [1081] 

1900 IF dif(k)>dif(k+1) THEN GOSUB 2000 [618] 

1910 NEXT k [373] 

1920 IF flag = l THEN first=l ‘.GOTO 1880 [1643] 

1930 IF first=0 THEN RETURN [1148] 

1940 FOR k=l TO 5 [1081] 

1950 proz=ROUND((dif(k)*100)/rs) [2064] 

1960 LOCATE l,k+4 [907] 

1970 PRINT"-"k"- R"top(k)CHR$(191)" (Abw.: [6391] 
"dif(k)" —"proz"%) / aus"r(rl(k))CHR$(191 
)" &"r(r2(k))CHR$(191)" "s$(k);STRINGS(15, 

32 ) 

1980 NEXT [350] 

1990 RETURN [555] 

2000 help=top(k):top(k)=top(k+l):top(k+l)= [2343] 
help 

2010 help$=s$(k):sS(k)-s$(k+l):s$(k+l)=hel [1823] 
pS 

2020 heip=rl(k):rl(k)=rl(k+1):rl(k+1)=help [1423] 
2031 
204i 
help 

2050 flagai 
2060 RETURN 

t *• * -k * 

'Untermenue: VJiderstaende eingeben 
> * * * * 

2100 CLS 

2110 WINDOW #5,4,32,12,12 
2120 xl=3:yl-ll:x2=33:y2=13 
2130 GOSUB 3880 
2140 LOCATE 2,3:PRINT"Wie moechten Sie Ihr [4918] 
e Widerstaende eingeben ?" 

2150 
2160 


io help=r2(k):r2(k)=r2(k+l):r2(k+l)=help [943] 
to help=dif(k):dif(k)=dif(k+1):dif(k+i)= [ 1118 ] 


2070 

2000 

2090 


[262 ] 

[555] 

[104] 

[2308] 

[104] 

[91] 

[1410] 

[1464] 

[977 ] 


[53] 

'Auswahlfenster: Art der Eingabe waeh [1839] 


len 

2170 '*** 


[53] 

2180 x -1 


[350] 

2190 CLS#5:IF X=1 THEN 2200 ELSE IF 

x=2 TH 

[2716] 

EN 2220 

2200 PRINT#5," "I$" als Zahl "iS" 

als Fa 

[2972] 

rbringe" 

2210 GOTO 2230 


[309] 

2220 PRINT#5," als Zahl "i$" als 

Farbri 

[2983] 

nge "iS 

2230 a$=INKEY$:IF a$="" THEN 2230 


[1546] 

2240 IF a$=CHR$(243) OR a$=CHR$(242 

) THEN 

[1477] 

2270 

2250 IF a$=CHR$(13) THEN GOTO 2280 


[ 1402 ] 

2260 GOTO 2230 


[ 309] 

2270 x=(X XOR 3):GOTO 2190 


[1315] 

2280 IF X=1 THEN 2320 ELSE 2430 


[ 969 ] 

2290 '*** 


[53] 

2300 'Eingabeart 1: als Zahlen 

2310 '*** 


[2126] 


[53] 

2320 CLS 


[91] 

2330 PRINT iS" Eingabe der VJiderstaende a] 

[3125] 

s Zahlen "i$ 

2340 PRINT 


[361] 

2350 INPUT"Widerstand: ”,r(anzahl) 


[3495] 

2360 IF r(anzahl)=0 THEN 2520 


[1710] 

2370 GOSUB 2540 


[879 ] 

2380 anzahl=anzahl+l 


[722 ] 

2390 GOTO 2320 


[347] 

2400 '*** 


[53] 

2410 'Eingabeart 2: als Farbringe 


[2316] 

2420 '*** 


[53] 

2430 CLS:eing=l:GOSUB 360:eing=o 


[1716] 

2440 IF r=-l THEN 2520 


[953] 

2450 r(anzahl)=r 


[ 733 ] 

2460 CLS 


[91] 


2470 PRINT i$"Ei.ngabe der VJiderstaende mit [5072] 
Hilfe der Farbringe"i$ 

2480 PRINT:PRINT"Der eingegebene Widerstan [5239] 
d betraegt"r;CHR$(191) 
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2490 GOSUB 2540 
2500 anzahl=anzahl+l 
2510 GOTO 2430 

2520 PRINT:PRINT"Moechten Sie die eingegeb 
enen Widerstaende abspeichern ? [j/n]" 

2530 a$=UPPER$(INKEYS):IF a$="J" THEN 2740 
ELSE IF a$="N" THEN 1460 ELSE 2530 
2540 WINDOW #4,4,27,12,13 
2550 xl=3:yl=l.l :x2=28:y2=14 
2560 GOSUB 3880 
2570 CLS#4 

2580 PRINT#4,"Wieviele Widerstaende ?" 

2590 X=1 

2600 IF X=1 THEN 2610 ELSE 2630 

2610 LOCATE#4,l,2:PRINT#4," "i$" einen "iS 

" mehrere " 

2620 GOTO 2640 

2630 LOCATE#4,1,2:PRINT#4," einen "IS" 
mehrere "iS" " 

2640 a$=INKEY$ 

2650 IF a$=CHR$(242) OR a$=CHR$(243) THEN 
2680 

2660 IF a$=CHR$(13) THEN 2690 

2670 GOTO 2640 

2680 x=(x XOR 3):GOTO 2600 

2690 IF x=l THEN anz(anzahl)=1 ELSE anz(an 

zahl )=2 

2700 RETURN 

2710 '**** 

2720 'Untermenue: Widerstaende abspeichern 
2730 '**** 

2740 CLS 

2750 IF anzahl=0 THEN PRINT iS" Keine Wide 
rstaende eingegeben "i$:CALL &BB06:GOTO 14 
60 

2760 PRINT i$"Eingegebene Widerstaende abs 
peichern"i$ 

2770 PRINT:PRINT"Mit [Return] wird der Nam 
e >R-DATA.DAT< gewaehlt." 

2780 PRINT"Mit [.] und [Return] koennen Si 
e abbrechen." 

2790 PRINT: INPUT"Date.iname: ",a$ 

2800 IF a$ ="." THEN 1460 

2810 IF a$-"" THEN a$="r-data.dat" 

2820 OPENOUT a$ 

2830 WRITE#9,anzahl 
2840 FOR i=l TO anzahl 
2850 WRITE#9,r(i),anz(i) 

2860 NEXT:CLOSEOUT 

2870 PRINT:PRINT iS" Widerstaende abgespei 
chert ! "i$ 

2880 CALL &BB06 
2890 GOTO 1460 
2900 '*** 

2910 'Untermenue: Widerstaende einladen 
2920 '*** 

2930 CLS 

2940 PRINT iS" Widerstaende einladen "i$ 
2950 PRINT:PRINT"Mit [Return] wird der Nam 
e >R-DATA.DAT< gewaehlt." 

2960 PRINT"Mit [.] und [Return] koennen Si 
e abbrechen." 

2970 PRINT:INPUT"Dateiname: ",a$ 

2980 IF a$~"." THEN 1460 

2990 IF a$="" THEN a$="r-data.dat" 

3000 OPENIN aS 
3010 INPUT#9,anzahl 
3020 FOR i=l TO anzahl 
3030 INPUT#9,r{i),anz(i) 

3040 NEXT:CLOSEIN 
3050 GOTO .1460 
3060 '**** 

3070 'Untermenue: Widerstaende auflisten/k 

orrigieren 

3080 '**** 

3090 CLS 

3100 PRINT i$" Widerstaende auflisten/korr 
igieren "i$ 

3110 PRINT:PRINT i$" [Return] "iS" zum Bes 
tand korrigieren." 

3120 PRINT iS" [Space] "i$" um weiterzuli 
sten" 

3130 PRINT i$" [S] "i$" um die Widers 

taende nach ihrem Wert zu sortieren" 

3140 PRINT iS" [.] "i$" um abzubreche 

n " 

3150 WINDOW #3,4,44,23,13 

3.160 xl = 3 :yl=12 :x2=45:y2-24 

3170 GOSUB 3880 

3180 akty=l 

3190 CLS#3 

3200 aktend=akty+9 


[879 ] 
[722 ] 

[349] 
[6739] 

[3433] 

[1489] 
[1682] 
[ 977 ] 

[ 386 ] 
[2611] 

[350] 
[735] 

[3205] 

f 363 ] 
[3433] 

[ 278 ] 
[787 ] 

[ 730 ] 

[ 363 ] 

[1155] 

[2388] 

[555] 

[104] 

[2840] 

[104] 

[91] 

[4231] 


[4021] 

[3608] 

[4358] 

[1178] 

[926] 

[1355] 

[765] 

[1307] 

[1073] 

[1566] 

[904 ] 

[3342] 

[393] 

[ 391 '] 

[53] 

[1815] 

[53] 

[91] 

[ 3299 ] 
[3608] 

[4358] 

[1178] 

[926] 

[1355] 

[715] 

[934] 

[1073] 

[584] 

[753] 

[391] 

[104] 

[2648] 

[104] 

[91] 

[4355] 

[3160] 

[1901 ] 

[6336] 

[2425 ] 

[ 1200 ] 

[1989] 

[977] 

[391] 

[371] 

[566] 


3210 IF aktend>=anzahl THEN aktend=anzahl- 
1 

3220 IF anzahl-1 THEN CLS:PRINT i$" Keine 
Widerstaende (mehr) vorhanden ! "i$:CALL & 
BB06:GOTO 1460 
3230 FOR i=akty TO aktend 

3240 IF anz(i)=I THEN a$="einer" ELSE a$=" 
mehrere" 

3250 PRINT#3,"R"r(i);CHR$(191)," - Bestand 
: "a$ 

3260 NEXT i 
3270 '*** 

3280 'Auswahlfenster: Liste der Widerstaen 
de 

3290 '*** 

3300 y=l:oldy=y 

3310 LOCATE#3,39,oldy:PRINT#3," ":LOCATE#3 
,3 9,y:PRINT# 3,"<" 

3320 oldy=y 

3330 a$“INKEY$:IF a$="" THEN 3330 

3340 IF a$~CHR$(240) THEN y=y-l:GOTO 3410 

3350 IF a$=CHR$(241) THEN y^y+l:GOTO 3410 

3360 IF a$=" " THEN 3450 

3370 IF a$=CHR$(13) THEN 3510 

3380 IF a$="." THEN 1460 

3390 IF a$="s" OR a$="S" THEN GOTO 3790 

3400 GOTO 3330 

3410 IF y<1 THEN y=l 

3420 IF y>10 THEN y=10 

3430 IF y+akty>anzahl THEN y~anzahl-akty 
3440 GOTO 3310 

3450 1'F akty+10>anzahl THEN akty=l:GOTO 31 
90 

3460 akty=akt.y+10 
3470 GOTO 3190 
3480 '*** 

3490 'Auswahlfenster: Bestimmung der vorha 
ndenen Stueckzahl 
3500 '*** 

3510 WINDOW #4,47,77,15,15 

3520 Xl=46:yl=14:x2=78:y2=16 

3530 GOSUB 3880 

3540 PRINT#4,"Anzahl 

3550 ON X GOTO 3560,3570,3580 

3560 LOCATE#4,1,2:PRINT#4," "iS" einer "i$ 

" mehrere keiner ":GOTO 3590 

3570 LOCATE#4,1,2:PRINT#4," einer "i$" 

mehrere "iS" keiner ":GOTO 3590 

3580 LOCATE#4,1,2:PRINT#4," einer mehr 

i C ** l(pi rjpf •• i t H ** 

3590 a$-~INKEY$: IF a$ = "" THEN 3590 

3600 IF a$=CHR$(242) THEN X=X-1:GOTO 3640 

3610 IF a$=CHR$(243) THEN x=x+l:GOTO 3640 

3620 IF a$=CHR$(13) THEN 3670 

3630 GOTO 3590 

3640 IF X<1 THEN X=1 

3650 IF x>3 THEN X=3 

3660 GOTO 3550 

3670 IF x=l THEN anz(akty+y-l)=1 
3680 IF x=2 THEN anz(akty+y-l)=2 
3690 IF X=-3 THEN 3700 ELSE 3190 
3700 beg=akty+y-l:ende~anzahl-l 
3710 FOR i=beg TO ende 
3720 r(i)=r(i+i):anz(i)=anz(i+l) 

3730 NEXT:r(anzahl-1)=0:anz(anzahl-l)=0 
3740 anzahl=anzahl-l 
3750 GOTO 3190 
3760 '*** 

3770 'Untermenue Listen/Korrigieren: Wider 
staende nacli Wert sortieren 
3780 '*** 

3790 flag=0 

3800 FOR i-1 TO anzahl-2 

3810 IF r(i)>r(i+l) THEN GOSUB 3840 

3820 NEXT 

3830 IF flag=l THEN 3790 ELSE 3180 
3840 help=r(i):r(i)=r(i+l):r(i+l)=help 
3850 help=anz(i):anz(i)=anz(i-H ):anz(i+l) = 
help 

3860 flag=l 
3870 RETURN 
3880 '**** 

3890 'Windowumrahmung zeichnen 
3900 '**** 

3910 al=8*xl-2:bl=400-(16*yl-10) 

3920 a2=8*x2-6:b2=400-(16*y2-4) 

3930 MOVE al,bl:DRAW a2,bl:DRAW a2,b2:DRAW 
al,b2:DRAW al,bl 
3940 al=al-4:a2=a2+4 
3950 bl=bl-8:b2 b2+8 

3960 MOVE al,bl:DRAW a2,bl:DRAW a2,b2:DRAW 
al,02:DRAW al,bl 
3970 RETURN 


[1859] 

[9101] 


[1304] 

[2595] 

[2803] 

[ 375] 

[53] 

[1844] 

[53] 

[685] 

[2043] 

[525] 

[1431] 

[1243] 

[1630] 

[659 ] 

[782] 

[926] 

(2352] 

[463] 

[770] 

[900] 

[3073] 

[451] 

[3308] 


[53] 

[2738] 


[53] 

( 1488] 

[1783] 

[ 977 ] 

[1421] 

[1135] 

[5224] 

[5122] 

[3766] 

[1474] 

[1156] 

[1036] 

{742 ] 

[491] 

[512] 

[1027] 

[ 467 ] 

[1919] 

[1790] 

[440 ] 

[1891] 

[908] 

[1367] 

[3278] 

[734 ] 

[634 ] 

[53] 

[4226] 

[53] 

[ 263 ] 

[1248] 
[ 1002 ] 
[ 350] 

[ 706 ] 

[1458] 

[2957] 

[262] 

[555] 

[104] 

[1820] 

[104] 

[1310] 

[2287] 

[2888] 

[966J 
[393 ] 

[ 2888] 

[555] 
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Bonus 


Frisch kopiert 
und editiert... 

Zwei alltagstaugliche Arbeitshilfen als 
Zugaben auf der neuen CPC-DATABOX 

Nach dem Motto “Nicht nur das Allerneueste kann gefallen“ haben wir in 
Programmen gestöbert, die schon ein paar Donnerstage auf dem Buckel ha¬ 
ben. Dabei sind wir auf zwei Anwendungen gestoßen, die auch heute noch 
hochaktuell sind und in die Schublade “praktische Helfer“ gehören. 


Wer die “CPC International“ kennt, für 
den ist auch die Sache mit dem “Bo¬ 
nus“ nichts Neues: Es geht dabei um 
Programme, die wir aus Platzgründen 
zwar nicht im Heft veröffentlichen kön¬ 
nen, unseren Lesern aber trotzdem 
nicht vorenthalten wollen. Darum 
packen wir sie als Zugaben auf die DA- 
TABOX. unsere Service-Diskette zum 
Heft. Die beiden “Bonüsse“ dieses 
Heftes wurden bereits 1987 entwickelt 
und laufen auf allen CPCs. Sie stam¬ 
men aus einer hochkarätigen, umfang¬ 
reichen Programmsammlung, die wir 
angekauft haben. Die besten Stücke 
daraus wollen wir in unregelmäßigen 
Abständen unseren Lesern auf Diskette 
verfügbar machen. 

Der “Mal-eben“-Editor 

Ein Texteditor ist wie eine Packung Ta¬ 
schentücher: Man sollte ihn immer zur 
Hand haben. Wollen Sie Textdateien iür 
eigene Adventure-Spiele hersteilen? 
Möglicherweise schreiben Sie auch 
Programme in C, Pascal oder Assem¬ 
bler, oder Sie bekommen gelegentlich 
Disketten mit Anwendungen, deren 
Anleitung als ASCII-Datei abgespei¬ 
chert ist: In all diesen Fällen kann Ih¬ 
nen “Super-Edit 1.1“ weiterhelfen. Er 
wird vom BASIC aus gestartet, braucht 
nur 4 kByte im Speicher und stellt die 
wichtigsten Funktionen zur Bearbei¬ 
tung von Texten zur Verfügung. Das 
Vorwärts- und Rückwärtsrollen durch 
einen Text geschieht dabei wesentlich 
schneller, als Sie cs von den meisten 
Editorprogrammen gewohnt sein 
dürften. 

Neben den üblichen Tastenfunktionen, 
die man vom System des CPC her 
kennt, gibt es noch einige Sonderkom¬ 
mandos, die sich mit den Funktions¬ 
tasten aufrufen lassen: 


Mit <fl> geht man im Text um 20 
Zeilen weiter, während <f4> um 20 
Zeilen zurückführt. 

Der Textanfang läßt sich mit <15>, 
das Textende mit <f2> anspringen. 
Die Umschaltung zwischen Über¬ 
schreib- und Einfügemodus geschieht 
mit < f6 >. Zum Löschen eines Wortes 
wird <f9> betätigt. Mit <17> geht 
man ein Wort nach links, mit < 18 > ei¬ 
nes nach rechts. 

<f3> schließlich dient zum Einfügen 
von Makros. Das sind vordefinierte 
Floskeln oder Textpassagen, die jeweils 
höchstens 50 Zeichen lang sein dürfen. 
Bis zu 9 Makros lassen sich definieren. 
Zum Einfügen drückt man zuerst 

< 13 >, dann je nach gewünschtem Ma¬ 
kro < fl > bis < f9 >. 

< 10 > führt zum Menü, wo sich unter 
anderem der Befehl zum Definieren der 
Makros befindet. Einige Funktionen 
des <f0>-Menüs sind es wert, kurz 
erklärt zu werden: 

<F> setzt den Dateinamen fürs La¬ 
den oder Abspeichern von Texten. So¬ 
lange hier nichts angegeben ist, kann 
man weder laden noch speichern. 

< A> ,<B> und <S> dienen zum 
Suchen und/oder Ersetzen von Wörtern. 
Wenn das Programm nach Drücken von 

< S > im Text ein Wort gefunden hat, das 
“Wort A“ entspricht, kann man entweder 
weitersuchen lassen (< S >), die Suche 
abbrechen (<E>), zurück in dieText- 
eingabc gehen (< Return >) oder das 
Wort an der angezeigten Stelle durch 
“Wort B“ ersetzen (C). 

< I> fügt den Inhalt einer Textdatei in 
den augenblicklich bearbeiteten Text 
ein und beginnt damit an der aktuellen 
Cursorposition. 

< M > erlaubt die Eingabe von Text¬ 
passagen für die Makros. Das jeweils 
zu definierende Makro wird aus der an¬ 
gezeigten Liste ausgewählt. 


<0> speichert die Makroliste auf 
Diskette, <P> lädt eine entsprechen¬ 
de Liste von dort. 

<C> löscht nach einer Sicherheitsab¬ 
frage den gesamten Text im Speicher. 
Erfreulicherweise unterstützt “Super- 
Edit 1.1“ deutsche Umlaute, ß und Para¬ 
graphenzeichen. Die Tastenbelegung: 
Ä/a = eckige/geschweifte Klammer 
auf 

Ö/ö = Backslash/senkrechter Strich 
Ü/ii = eckige/geschweifte Klammer zu 
ß = < Control > - < 2 > 

§ = A-Round (“Klammeraffe“) 

Die deutschen “Spezialitäten“ wurden 
so in den ASCU-Code hineindefiniert, 
daß sie sich mit praktisch allen gängi¬ 
gen Textdateien vertragen. 

Der Sicherheitskopierer 

Das zweite Bonus-Programm stellt 
l:l-Sicherheitskopien von Disketten 
her. Es arbeitet wahlweise mit einem 
Laufwerk oder mit zweien. Das Kopie¬ 
ren geht spurweise vor sich; jeweils 
sieben Spuren werden von der Quell¬ 
diskette in den Speicher gelesen, analy¬ 
siert. und dann auf die Zieldiskette ge¬ 
schrieben. Ein bestehender Kopier¬ 
schutz wird dabei mit übertragen. Das 
klappt natürlich nicht bei allen Pro¬ 
grammen. Bei “Winter Games“, “Way 
Of The Tiger“ und “Builderland“ zum 
Beispiel war unser Programm aber 
durchaus erfolgreich. 

Es gibt Kopierschutztechniken, die es 
erfordern, als Ziekliskctte eine ganz 
neue, unformatierte Diskette zu ver¬ 
wenden. Dies ist jedoch nicht in jedem 
Fall nötig. 

Übrigens: Klar, daß unser Track-Ko¬ 
pierer nur für Sicherheitskopien zum 
persönlichen Archivier-Bedarf gedacht 
ist. Als Werkzeug für professionelle 
Raubkopierer eignet er sich ohnehin 
nicht, weil er vom kopiergeschützten 
Original wieder ein geschütztes Dupli¬ 
kat erzeugt und den Schutz nicht etwa 
“knackt“. 

(sz) 
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Schöne Schleifchen 

Pascal-Kolleg: Schleifenprogrammierung 
in Turbo Pascal und Basic 

Auch diese Folge des Pascal-Kollegs bietet wieder allen Joyce- und CPC- 
Programmierern, die mit Turbo Pascal arbeiten, Grundlagenwissen rund 
um Code und Struktur. Diesmal geht es um Schleifenkonstruktionen und 
das nötige Drumherum. 


In praktisch allen höheren Program¬ 
miersprachen kennt man Zählschlei¬ 
fen. Ihr Zweck besteht darin, daß ein 
bestimmter Anweisungsblock mehr¬ 
fach abgearbeitet wird und die Anzahl 
der Durchläufe von vornherein fest¬ 
steht. 

In FORTRAN gibt es hierzu zum Bei¬ 
spiel die DO-Anweisung, in LOGO 
den REPEAT- Befehl und in BASIC die 
FÜR..TO- Konstruktion mit der Option 
STEP. Etwas Ähnliches kennt natür¬ 
lich auch Pascal: Es gibt die 
FOR..TO..DO -Schleifen (für wach¬ 
senden Laufindex) und EOR..DOWN- 
TO.-DO-Schleifen (für fallenden Lauf¬ 
index). 

Jedoch ist ein wichtiger Unterschied zu 
beachten. Tn Pascal darf der Laufindex 
nicht vom Typ REAL sein, während das 
in BASIC die Regel ist. In Pascal kom¬ 
men nur die sogenannten Ordinaltypen 
in Frage, wie zum Beispiel die ganzen 
Zahlen (Integer) und die Zeichen 
(Char). 

Das folgende BASIC-Programm dient 
dem Ziel, eine Tabelle der Quadrate al¬ 
ler Zahlen zwischen eins und drei mit 
der Schrittweite 0.05 zu erzeugen: 

10 FOP. X=1 TO 3 STEP 0.05 
20 PRINT X,XxX 
30 NEXTX 

Die Variable X steht in diesem BASIC- 
Programm unzweifelhaft für eine 
REAL-Zahl. Wie können wir jedoch 
das gegebene Programm in Pascal 
übersetzen? Versuchen wir zunächst 
einmal eine Konstruktion mit eine Zäh¬ 
lerschleife! Benötigt wird ein Laufin¬ 
dex, den wir als INTEGER- Variable L 
wählen. 

In welchen Grenzen soll L variieren? 
Dazu müssen wir berechnen, wieviele 


Werte benötigt werden. Von X = 1 bis 
X=2 sind es zwanzig, von X=2 bis 
X=3 noch einmal zwanzig; zusammen 
macht das ...41, denn den letzten Weit 
drei dürfen wir nicht vergessen. Es ist 
daher sinnvoll. den Wert L von eins bis 
41 laufen zu lassen. Als nächstes muß 
aus dem jeweiligen Wert von L (der als 
solcher niemanden ernsthaft interes¬ 
siert) der eigentlich gemeinte Real- 
Wert X ermittelt werden. Dazu stellen 
wir eine kleine Tabelle auf: 

für L=1 wollen wir X=l, 
für t.=2 wollen wir X=1.05, 
für L=3 wollen wir X=1.10, 
für L=4 wollen wir X=1.15, 


REAL - Schleifen 
in PASCAL 

Ein bißchen Nachdenken führt zu dem 
Ergebnis, daß der Wert der Hauptva¬ 
riablen X aus L allgemein wie folgt be¬ 
rechnet werden kann: 

X:=l+(L-l)x0.05 

Damit sind wir schließlich in der Lage, 
den entsprechenden Pascal-Programm- 
teil zu schreiben: 

Var L:Integer; X:Real; 

For L: =1 To 4l Do 
Begin 

X:=l+(L-l)x0.05 

WriteLn(X:10:4, XxX:10:4); 

End; 

Dieses Programmstück ist korrekt, je¬ 
doch erscheint die Umrechnung von L 
in X kompliziert. 

Aufgabe 1: Es ist besser, die Schleife 
von /..=/) bis 40 laufen zu lassen. For¬ 
mulieren Sie das entsprechende Pro¬ 
grammstück! 

Auf jeden Fall lauern in der mentalen 


Arithmetik Fehlerquellen, auch wenn 
man sich das Leben durch geeignete 
Wahl der Grenzen vereinfacht. Und ist 
cs nicht ärgerlich, für einen solch sim¬ 
plen Vorgang einige Minuten Denkar¬ 
beit investieren zu müssen? 
Glücklicherweise bietet die Sprache 
Pascal weitere Konstruktionen zur Er¬ 
zeugung von Schleifen: Es gibt noch 
die REPEA T.. T7V77L-Schleifen und 
die WHILE..DO- Schleifen. Exempla¬ 
risch werden wir die eben als 
FOR.. 70-Schleife realisierte Kon¬ 
struktion nun als REPEAT.. UN- 
77L-Schleife formulieren. Die Laufva¬ 
riable L wird hier nicht mehr benötigt. 
Die Real-Variable X wird anfangs auf 
den Start wert X=1 gesetzt und danach 
so lange in Schritten von 0.05 herauf¬ 
gezählt, bis der Endwert überschritten 
ist. 

Var X:Real; (Vorsicht!) 

X:=l; 

Repeat 

WriteLn(X:10:4,XxX:10:4); 

X:=X+0.05; 

Until X: =3 • 05; 

Der Vorteil einer solchen Konstruktion 
ist — neben dem Einsparen der Varia¬ 
blen für der Laufindex — das Vermei¬ 
den der umständlichen Umrechnung 
von der Laufvariablen L in die Haupt¬ 
variable X. 

Allerdings liegt hier noch ein Haar in 
der Suppe: In der angegebenen Kon¬ 
struktion ist ein Fehler verborgen, der 
sich erst zur Laufzeit bemerkbar 
macht. 

Aufgabe 2: Worin liegt der Fehler und 
wie kann er behoben werden? 

Wolfgang J. Weber/ 
Andreas Knösel/rs 


Lösung zu Aufgabe 1 : Wenn die Schleife von 
L: =0 bis 40 läuft, wird die Umrechnungsformel 
von L in X einfacher: X:= I +LX0.05 


Repeat 

WriteLn(X: 10:4.XX: 10:4); 
X: = X + 0.05 
Until X>3.02: 


Lösung zu Aufgabe 2: Die angegebene Schleife 
endet nicht! Der Grund ist. daß hier für die Ab¬ 
bruchbedingungen zwei Real-Zahlen auf 
Gleichheit überprüft werden, bei denen aber 
Rundungsfehler auftreten können. Als Regel 
sollte man beherzigen: Real-Zahlen sollten stets 
nur auf Ungleichheit getestet werden. 


BASIC 

FOR <Var> = <Wert1 > TO <Wert2> STEP <Schrittweite> :NEXT <Var> 
WHILE < Bedingung = Wahr> WEND 

PASCAL 

FOR <Var1 > = < Wertl > TO <Wert2> DO <Ausführung> 

REPEAT < Ausführung> UNTIL < Bedingung = Wahr> 

WHILE < Bedingung = True> DO <Ausführung > 


Alle Schleifenfunktionen in Pascal und Basic unfeinen Blick 


For L: = 1 To 40 Do 
Begin 

X: = 1 + L x 0.05; 
WriteLn(X:10:4,X x X:10:4); 
End; 
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Alles in Ordnung? 

Sortierverfahren unter der Lupe 

Wer einen Computer sein Eigen nennt, wird sicherlich auch bald anfangen, 
auf diesem eigene Programme zu entwickeln. Gerade Dateiverarbeitungen 
erfreuen sich bei Einsteigern sehr großer Beliebtheit. Aber was tun, wenn 
die Daten unsortiert in irgendwelchen Feldern stehen? 


Sollte man eine Datei Verarbeitung oder 
irgend etwas ähnliches entwickelt ha¬ 
ben. wo viele Daten in ein- oder mehr¬ 
dimensionalen Feldern verwaltet wer¬ 
den, kann es immer recht nützlich sein, 
diese in einer ordentlichen Form nach 
bestimmten Kriterien soriert vorliegen 
zu haben. 

Eine Sortierroutine muß also her. 

Die Qual der Wahl 

Nun ist es aber so, daß es in der Infor¬ 
matik für jedes Problem mehrere Lö¬ 
sungen gibt. Da sich schon vor vielen 
Jahren Wissenschaftler dieser Proble¬ 
matik angenommen haben, fallen diese 
Lösungen logischerweise immer anders 
aus. Die einen - die auf kurze und lo¬ 
gische Ergebniss aus waren - ent¬ 
wickelten Routinen mit nur wenigen 
Programmzeilen. Die anderen, die 
mehr auf einen Geschwindigkeitsvor¬ 
teil als auf ein kurzes Programm aus 
waren, entwickelten kompliziertere 
Verfahren w ie zum Beispiel Quick-Sort 
mit seinen rekursiven Aufrufen. 


Quick-Sort 

Dieses Verfahren wurde von dem ame¬ 
rikanischen Mathematiker C.A.R. Ho- 
are entwickelt. Hierbei wird ein vorge¬ 
gebenes Feld so in zwei Teile aulgeteilt, 
daß in einem Teilfeld die Elemente ste¬ 
hen, die kleiner als ein gewisses “tren¬ 
nendes“ Element sind, im anderen Teil 
die größeren. Anschließend werden 
beide Teilfelder nach dem gleichen 
Muster behandelt, und dies solange, bis 
man bei einelementigen Mengen ange¬ 
langt ist. Nun ist das Feld sortiert. Als 
Beispiel nehmen wir einmal die Zah¬ 
lenfolge 98 8 9 07 85 3 2 2 3 72 78 38 13. 
Bitte schauen Sie sich für die weitere 
Erklärung die Abbildung “Das Quick¬ 
sort-Verfahren“ an. Als trennendes Ele¬ 
ment wird das jeweils in der Milte ste¬ 
hende genommen (durch () gekenn¬ 
zeichnet). 

Es wird jeweils, zunächst von links be¬ 
ginnend, das erste Element gesucht, 
das größer als das oder gleich dem 
Trennelement ist; dann von rechts her 
das erste Element, welches kleiner oder 


gleich dem Trennelement ist. Diese 
beiden Elemente werden vertauscht. 

Select-Sort 

Im Gegensatz hierzu basiert das Select- 
Sort-Verfahren (oder auch Sortieren 
durch Auswahl genannt) auf einem we¬ 
sentlich einfacheren Prinzip. In dem 
Datenfeld A wird zunächst das kleinste 
Element herausgesucht und an die vor¬ 
derste Position gesetzt, das bedeutet, 
das Element aflj und das minimale Ele¬ 
ment tauschen die Plätze (wird im Pro¬ 
gramm von der Prozedur Switch erle¬ 
digt). 

Unter den verbliebenen Elementen 
a[2], a|3],...a[n] wird nun wieder das 
kleinste Element gesucht und mit a[2] 
getauscht. Dies geht nun immer so wei¬ 
ter, bis das vorletzte Datenelement er¬ 
reicht wird. 

Heap-Sort 

Dieser Algorithmus, den der Amerika¬ 
ner J. Williams 1964 vorstellte, ist die 
Weiterentwicklung des Select-Sort-Ver- 
fahrens. Hier wird in einem Feld mit 
der Länge n das erste Element zur Wur¬ 
zel eines Baumes erklärt. Jedes Ele¬ 
ment dieses Feldes ist zugleich ein 
Knoten des Binärbaumes, dem wieder 
ein linker und ein rechter Nachfolger 
zugeordnet werden kann. Ein zehn Ele¬ 
mente großes Feld sieht dann zum Bei¬ 
spiel so aus; 

1 

23 

45 6 7 
8 9 10 

Auf dieser Struktur basierend kann nun 
ein Heap (Haufen) aufgebaut werden. 
Ein Feld heißt Heap, wenn für alle n 
Elemente des Feldes folgendes gilt; 
Der Wert des i-ten Feldelementes ist 
größer oder gleich dem Wert des 2xi-ten 
und des 2xi +I-ten Feldelemnts 
(i, 2xi, 2xi+l sind kleiner oder gleich 

n) 

Diese Bedingung erzwingt einen Binär¬ 
baum, in dem der 'Vater größer oder 
gleich seinem linken und rechten Sohn 
ist. 


Verfahren 

Minuten:Sekunden 

Quick-Sort 

0:31 

Heap-Sort 

0:36 

Shell-Sort 

0:38 

Select-Sort 

1:49 

Insert-Sort 

1:51 

Bubble-Sort 

2:48 


Solange benötigen die Sortier-Algorithmen , um 
tausend Datensätze zu sortieren. 
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Das größte Element eines Heaps befin¬ 
det sich stets an der ersten Stelle des 
Feldes. Ein solches Heap wird auch 
Maximal-Heap genannt. Analog zu 
dieser Form kann ein Minimal-Heap 
definiert werden. Für dieses Heap gilt 
dann die Regel, daß der "Vater“ nicht 
größer sein darf, als sein rechter oder 
linker “Sohn“. 

Bei der eigentlichen Sortierung, kann 
man also in zwei Schritte unterteilen: 

• Das Feld wird zu einem Heap trans¬ 
formiert 

• Das erste (kleinste oder größere) 
Element wird mit dem letzten (größten 
oder kleinsten) Element vertauscht und 
das Feld um das letzte Feldelement ver¬ 
kürzt. 

Werden diese zwei Schritte entspre¬ 
chend der Anzahl der Felder minus eins 
mal wiederholt, ist das Feld sortiert. 
Eine Lösung dieser Problematik kön¬ 
nen Sie dem Listing Heap.Inc ent¬ 
nehmen. 

Insert-Sort 

besser Sortieren durch Einfügen ist 
eine weitere interessante Art. Daten in 
die richtige Ordnung zu bringen. Die 
Geschwindigkeit ist ungefähr mit der 
beim Select-Sorting zu vergleichen. 

Bei der Entwicklung dieses Verfahrens 
ging man davon aus, daß ein vorsortier¬ 
tes Feld vorliegt, in welches ein weite¬ 
res Element aufgenommen werden soll. 
Das jeweils neu hinzukommende Ele¬ 
ment wird nun —bei Stelle I beginnend 
- mit den Listenelementen verglichen. 
Es wandert nun solange zu größeren 
Platznummern, bis es auf ein Listenele¬ 
ment stößt, daß größer als es selbst ist. 
Damit ist die Einfügestelle gefunden. 
Jetzt werden alle größeren Listenele¬ 
mente um eine Stelle nach rechts ge¬ 
schoben und das Element wird an der 
gefundenen Stelle eingefügt. 

Shell-Sort 

Das Shell-Sort-Verfahren (1959, D.L. 
Shell) ist wiederum eine Weiterent¬ 
wicklung eines bereits vorhandenen Al¬ 
gorithmus. Das Sortieren durch Einfü¬ 
gen wird hier noch effizienter reali¬ 
siert, da hier Verschiebeoperationen 
über größere Entfernungen hinweg 
durchgeführt werden. Im ersten Durch¬ 
lauf wird das Datenfeld in zwei Teil fol¬ 
gen mit der Länge des Gesamtfeldes 
Div 2 sortiert. Logischerweise beträgt 
nun auch die Entfernung der Elemente 
der Teilfolgen untereinander genau die 
Länge des Gesamtfeldes Div 2. Nun 
werden alle Teilfolgen nacheinander 


sortiert. Im zweiten Durchlauf wird die 
Entfernung zwischen den Elementen 
einer Teilfolge halbiert; die Länge der 
Teilfolgen verdoppelt sich dann auto¬ 
matisch. Hiernach werden diese neuen 
Teilfolgen nochmals sortiert. Auch in 
den nächsten Durchläufen wird dieses 
Verfahren wiederholt, und im letzen 
Durchgang beträgt die Entfernung zwi¬ 
schen den Elementen einer Folge eins, 
was bedeutet, daß nur eine Teilfolge 
vorliegt, deren Länge der Feldlänge 
entspricht. Im Vergleich zum Insert- 
Sort-Vcrfahren erzielt Shell-Sort wirk¬ 
lich ein enorm gutes Ergebnis. 

Bubble-Sort 

Ein einfaches, jedoch nicht gerade 
schnelles Verfahren stellt die Aus¬ 
tauschroutine da. Hierbei wandern die 
Werte der zwei Schleifenvariablen (i.j) 
jeweils von zwei bis zur Datensatzgröße 
(i) und von der Datensatzgröße bis i (j). 
Die zweite For-Schleife übernimmt 
hier das Durchlaufen des Restfeldes mit 
den impliziten Vergleichen und den ent¬ 
sprechenden Verschiebungen. Die äu¬ 
ßere For-Schleife übernimmt das konti¬ 
nuierliche Verkürzen des Restfeldes. 

Beispielprogramme 

Die als Listing ausgedruckten Bcispiel- 
programme stellen die einzelnen Sor¬ 
tierverfahren noch einmal als Pascal- 
Listing da. Das Hauptprbgramm 
SORT.PAS bindet die einzelnen Pro¬ 
grammteile ein und demonstriert die 
einzelnen Sortierverfahren. Es ist 
grundsätzlich auch dafür zu gebrau¬ 
chen, um nach dem Eingeben erst ein¬ 
mal die einzelnen Sortierverfahren auf 
richtiges Eingeben zu überprüfen. 

Nach dem Start von SORT.PAS wird je¬ 
weils das LeerArray mit durcheinderge- 
würfelten Integerwerten gefüllt. Die In¬ 
halte des unsortierten Arrays werden 
nun auf dem Bildschirm ausgegeben 
und im Speicher mit dem jeweiligen 
Verfahren sortiert. Nun findet eine 
Ausgabe des sortierten Arrays statt, 
und es wird mit dem nächsten Sortier¬ 
verfahren weitergemacht. 

Um eine Kompatibilität des Programms 
auch mit anderen CP/M-Maschincn zu 
gewährleisten, wurde der Geschwin¬ 
digkeitstest unter CP/M ausgeführt. 
Hierzu wurde ein Programm geschrie¬ 
ben. daß so aussah: 

Prograrn Test; 

Type Studer.PArray = Array[l. .1000] Of In¬ 
teger; 

Student = Integer; 

Var TestArray: StudentArray; 

Loop: Integer; 


f$iBubble.Inc) 

Procedure Fill; 

Begin 

For Loop: =1 to 1000 Do 
TestArray[Loop]:=Random(1000)+l; 

End; 

3egir. [ Test | 

Fill; 

BllbblcSort( TestArray, 1000); 

End. | Test ] 

Die hier fett markierten Punkte sollten 
nun je nach dem gewünschten Sortier¬ 
verfahren entsprechend abgeändert 
werden. 

Der eigentliche Test kann nun direkt 
unter CP/M durch Eingabe von 
DATE!TEST!DATE 
gestartet werden. 

Voraussetzung hierfür ist jedoch, daß 
sich das CP/M-Dienstprogramm 
DATE.COM auf dem aktuellen Lauf¬ 
werk befindet. 

Subtrahiert man nun die erste angege¬ 
bene Zeit von der zweiten, kommt man 
auf die benötige Zeit für das Sortieren. 
Hierbei werden zwar auch Disketten¬ 
zugriffe mit einbezogen, sie sind je¬ 
doch bei jedem Verfahren gleich und 
fallen somit nicht sonderlich ins Ge¬ 
wicht. 

Außerdem bietet sich auch die Mög¬ 
lichkeit an, wenn man im Besitz einer 
RAM-Disk ist, alle benötigten Dateien 
auf diese zu kopieren. 

Ralf Schößler 


Empfohlene Literatur: 
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• Pascal al Work and Play, Richard S. 
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0-412-23380-0 

• Das Arbeitsbuch zu Turbo-Pascal, 
Karl Udo Bromm, Sybex, ISBN 
3-88745-629-7 

• Programmieren mit Pascal, Rüdcger 
Baumann. Vogel Verlag, ISBN 
3-8023-0667-8 

• Programmieren mit Turbo-Pascal 
3.0, Winfried Kassera, Markt & Tech¬ 
nik, ISBN 3-89090- 159-X 



Das Shell-Sort-Verfahren 


12’91/1 ’92 CPC 37 














CP/M 



{ Programm: Sort.Pas , } 

i Funktion: Laedt die einzelnen Module ein und } 
{ sortiert das zuvor belegte TestArray } 

{ Autor: Ralf Schoessler-Niebergall 
{ (c) CPC International } 


Program SortTester; 

Const Size =100; { Groesse des TestArrays } 


Type StudentArray 
Student 


Array [l..Size] Of Integer; 
Integer; { Art der Daten } 


Var TestArray: 
Loop: 


StudentArray; 

Integer; { Schleifenvanable } 


{$IBubble.Inc} { Einbinden der einzelnen } 

{SISelect.Inc} { Sortierverfahren } 

{Sllnsert.Inc} 

{$IHeap.Inc} 

{SlQuick.Inc} 

{SlShell.Inc} 

Procedure Fill; { Fuellt das TestArray mit } 

Begin { Integer-Werten } 

For Loop: =1 To Size do 
TestArray[ Loop]: =Random(Size ) +1 ; 

WriteLn('Shuffling') ; 

End; 


Procedure OutPut; { Ausgabe der Werte auf Bild- } 
Begin { schirm } 

For Loop:=l to Size Do 
Begin 

Write (TestArray[Loop]:6,' : '); 

End; 

WriteLn; 

End; 


Procedure Switch (Var Stul, Stu2: Student); 

{ Vertauscht Inhalt von zwei Variablen } 

Var TempStu: Student; { Austauschvariable } 

Begin { Switch } 

TempStu:=Stu1; 

Stul:=Stu2; 

Stu2:=TempStu; ., _ 

End; ( Switch } 

Begin { BubbleSort } 

For i:=2 To ClassSize Do 
For j:=ClassSize DownTo i Do 
If dass[j-1 ] > Classrj] Then 
Switch (Class[j-l],Class[J]); p . . 

End; { BubbleSort } 

{ Ende Bubble.Inc ) 


{ Select.Inc } 
{ Sortierverfahren: Select-Sort 

{ Uebergabeparameter: } 
( dass (das Array vom Typ StudentArray) } 
{ ClassSize (Letzte Datensatznummer) 

{ Vordefiniert muss sein: } 
{ StudentArry (TYPE StudentArray= Array Of ... )} 
{ Student (Datentyp) } 
{ Aufruf: } 
{ SelectSort (DatenArray, letzter Datensatz) } 


Procedure SelectSort (Var dass: StudentArray; 

ClassSize: Integer); 

Var i, j, (Schleifenvariablen} 

IndexOfMax: Integer; {Groesster Wert} 


Begin { SortTester } 

ClrScr; Fill; Output; { BubbleSort } 

WriteLn('BubbleSorting'); 

BubbleSort(TestArray,Size); 

WriteLn('Ready'); OutPut; 


Procedure Switch (Var Stul, Stu2 : Student); 

{ Vertauscht Inhalt von zwei Variablen } 

Var TempStu: Student; { Austauschvariable } 

Begin {Switch} 

TempStu:=Stul; Stul:=Stu2; Stu2:=TempStu; 

End; {Switch} 


ClrScr; Fill; OutPut; { SelectSort ) 

WriteLn('SelectSorting'); 

SelectSort(TestArray,Size); 

WriteLn('Ready'); OutPut; 

ClrScr; Fill; OutPut; { InsertSort } 

WriteLn('InsertSorting'); 

InsertSort(TestArray,Size); 

WriteLn('Ready'); OutPut; 

ClrScr; Fill; OutPut; { HeapSort } 

WriteLn('HeapSorting'); 

HeapSort(TestArray,Size); 

WriteLn('Ready'); OutPut; 


ClrScr; Fill; Output; { QuickSort } 

WriteLn('QuickSorting[); 

QuickSort(TestArray,Size); 

WriteLn ('Ready'); OutPut'; 

ClrScr; Fill; OutPut; { ShellSort } 

WriteLn('shellSorting'); 

ShellSort(TestArray,Size); 

WriteLn('Ready'); OutPut; 


Repeat Until KeyPressed; 
End. 


{ Ende Sort.Pas 


} 


e-Sort 

vom Typ StudentArray 

__ % e Datensatznummer 

} Vordefiniert muss'sein: 

{ StudentArray (TYPE StudentArray= Array Of . 
{ Student (Datentyp) 

{ BubbleSort (DatenArray, letzter Datensatz) 


Bubble.Inc 
Sortierverfahren: 


{ 

{ Uebergabeparameter: 
{ ' J ‘" * 


Bubbl 


dass (das Array 
ClassSize /Letzt 


} 

) 

! 

} 


} 

) 


Procedure BubbleSort (Var dass: StudentArray; 

ClassSize: Integer); 

Var i ,j: Integer; { Schleifenvariablen } 


Begin {SelectSort} 

For i:=ClassSize DownTo 2 Do 
Begin 

IndexOfMax:=i; 

For j:=i-l DownTo 1 Do 
If Class[j] > Class[IndexOfMax] Then 
IndexOfMax:=j; 

If indexOfMaxoi Then 

Switch (Class[i], Class[IndexOfMax]); 

End; 


End; 

{ Ende Select.Inc 


{SelectSort} 


{ Insert.Inc 

{ Sortierverfahren: Insert-Sort 
{ Uebergabeparameter: 

{ Class (das Array vom Typ StudentArray 

{ ClassSize (Letzte Datensatznummer) 

{ Vordefiniert muss sein: 

{ StudentArray (TYPE StudentArray= Array Of .. 
{ Student (Datentyp) 

{ Aufruf: 

{ InsertSort (DatenArray, letzter Datensatz) 

Procedure InsertSort (Var Class: StudentArray; 

ClassSize: Integer); 


Var i,j,k: Integer; 
h: Student; 


Schleifenvariablen } 
Austauschvariable } 


{ InsertSort } 


Begin 

For i:=2 To ClassSize Do 
Begin 

h:»Class rij; j:=l; . . 

While (h>Class[j}) And {j<i) Do ]:= 3 +1; 

If i<i Then For k:=i DownTo ]+l Do Class[k := 

J Class[k-1]; 

Class[j]:=h; { Class[j] einfuegen } 

End ;' { InsertSort } 

{ Ende Insert.Inc } 
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{ Heap.Inc } 

{ Sortierverfahren: Heap-Sort } 

{ Uebergabeparameter: } 

{ Class (das Array vom Typ StudentArray) } 

{ ClassSize (Letzte Datensatznummer) } 

{ Vordefiniert muss sein: } 

{ StudentArray (TYPE StudentÄrray= Array Of ...)} 
{ Student (Datentyp) } 

{ Aufruf: } 

{ HeapSort (DatenArray, letzter Datensatz } 

Procedure HeapSort (Var Class: StudentArray; 

ClassSize: Integer); 


Procedure Switch (var Stul, Stu2: Integer); 

{ Vertauscht Inhalt von zwei Variablen } 

Var TempStu: Student; { Austauschvariable } 

Begin { Switch } 

TempStu:=Stu1; Stul:=Stu2; Stu2:=TempStu; 

End; { Switch } 


Procedure filter_down (max ebene: Integer); 

Var i, T Schleifenvariable } 

Child : Integer; 

ready : Boolean; 

Begin { filter_down } 

i:=1; ready:=false; 

While (Not ready) Do 
Begin 

Cnild:=2 * i; 

If (Child > max_ebene) Then 

reaay:=True 

Else 

Begin 

If (Child+1 <= max ebene) then 
If (ClassrChild+lT > Class[Child]) Then 
Child:=Child+l; 

If (Class[i] < Class[Child]) Then 
Begin 

Switch(Class[i], Class[Child)); 
i:=Child; 

End 

Else 

ready:=True; 

End; 

End; 

End; { filter_down } 

Procedure filter_up (max ebene: Integer); 

Var i, { Schleifenvariable ) 

parents: Integer; 

Begin { filter_up } 

i:=max ebene; 

While Xi <> 1) Do 
Begin 

parents:=i Div 2; 

If (Class[i] > Class[parents]) Then 
Begin 

Switch(Class[parents], Class[i]); 
i:=parents; 

End 
Else 
i: =1; 

End; 

End; { filter_up } 

Var i: Integer; { Schleifenvariable } 


Begin { Heap_Sort ) 

For i:=2 TO ClassSize Do filter_up(i); 

For i:=ClassSize DownTo 2 Do 
Begin 

Switch (Class(l], Class[i]); 
filter aown (i-l); 

End; 

End; { Heap_Sort } 

{ Ende Heap.Inc } 


{ Quick.Inc ) 

{ Sortierverfahren: Quxck-Sort } 

{ Uebergabeparameter: } 

( Class (das Array vom Typ StudentArray } 

j ClassSize (Letzte Datensatznummer } 

{ Vordefiniert muss sein: } 

{ StudentArray (TYPE StudentArray= Array Of ...)} 

{ Student (Datentyp) } 

{ Aufruf: . J 

{ QuickSort (DatenArray, letzter Datensatz) } 

{Sa-} { Rekursiven Code erzeugenl!! } 

Procedure QuickSort (Var Class: StudentArray; 

ClassSize: Integer); 



Procedure Switch (Var Stul, Stu2: Student); 

{ Vertauscht Inhalt von zwei Variablen } 

Var TempStu: Student; { Austauschvariable } 

Begin { Switch } 

TempStu:=Stul; 

Stul:=Stu2; 

Stu2:=TempStu; 

End; { Switch } 

Procedure QSort (Klein, Gross: Integer); 

Var i, j: Integer; { Schleifenvariable } 
m: Student; 

Begin { QSort } 

i:=Klein; 
j:=Gross; 
m:=Class[j]; 

Repeat 

While Class[i] < m Do i:=i+l;{ Class[i] > m ? } 
While Class[j] > m Do j:=j—1; { Classfj] > m ? } 
If i<=j Then 
Begin 

Switch (Class(j],Class[i]); { austauschen } 
i:=i+l; j:=j —1; { l u. j annaehern } 

End; 

Until i>j; 

If Kleine} Then QSort(Klein,j 
If Gross>i Then QSort(i,Gross 
End; 


Begin 

QSort( 1 ,ClassSize); 

End; 

{$a+} { Rekursion ausschalten } 
{ Ende Quick.Inc 


{ Rekursion } 

{ Rekursion } 

{ QSort } 

{ QuickSort } 

{ QuickSort } 


{ Shell.Inc } 
{ Sortierverfahren: Shell-Sort } 
{ Uebergabeparameter: } 
{ Class (das Array vom Typ StudentArray } 
{ ClassSize (Letzte Datensatznummer) } 
{ Vordefiniert muss sein: } 


{ StudentArray (TYPE StudentArray= Array Of...) 
{ Student (Datentyp) 

{ Aufruf: 

{ ShellSort (DatenArray, letzter Datensatz 

Procedure ShellSort (Var Class: StudentArray; 

ClassSize: Integer); 

Var Offset, { Vergleichsoffset } 

Tausch, { Wo war letzer Tausch ? } 

Limit, { Anzahl zu vergleichender 

Elemente } 

Line: Integer; { Aktuelle Line } 


Procedure Switch (Var Stul, Stu2: Student); 

Var TempStu: Student; 

Begin { Switch } 

TempStu:-Stul; 

Stul:=Stu2; 

Stu2:=TempStu; 

end; { switch } 


Begin { shellsort } 

Offset:-ClassSize Div 2; { Vergleichsoffset auf 

die Haelfte der Satz¬ 
zahl setzen } 

While (Offset > 0) Do 

Begin { Schleife, bis Offset = 0 } 

Limit :=ClassSize-Offset; 

Repeat 

Tausch :=0; { Nicht tauschen bei diesem Offset } 
For Lineal To Limit Do 

If (Class[Line] > Class[ Line+Offset ]) Then 
Begin { austauschen } 

Switch (Class[Line] ,Class[Line+Offset]); 
Tausch :=Line; 

End; { austauschen } 

{ Sortierung nur bis dahin, wo letzer Tausch 
war } 

Limit :=Tausch-Of f set; 

Until (Tausch=0); 

{ Beim letzen Offset kein Tausch. Versuch mit 
halbiertem Offset } 

Offset:=0ffset Div 2; 

End; 

End; { ShellSort } 


{ Ende Shell. Inc 


} 
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Viermal C 

C-Compiler für CPC und Joyce 

Haben Sie bis jetzt immer geglaubt, die geheimnissumvvitterte Program¬ 
miersprache C gäbe es nur auf PCs und Großrechnern? Dann lassen Sie 
sich hier eines besseren belehren. 


C ist eine Programmiersprache, die zu¬ 
sehends an Bedeutung gewinnt. Neben 
Turbo-Pascal ist es wohl die von Pro¬ 
grammierern am meisten benutzte 
Sprache. Entwickelt wurde C Anfang 
der 70er Jahre von Dennis Ritchie und 
Brain Kernighan. Sie arbeiteten damals 
gerade an dem UNIX-Betriebssystem 
und suchten nach einer Möglichkeit, 
die Programmierarbeit zu vereinfa¬ 
chen. Die Systemprogramme von 
UNIX sind selbst größtenteils in C ge¬ 
schrieben, was die Leistungsfähigkeit 
der Sprache wohl am besten verdeut¬ 
licht. In Einheit mit UNIX kam C dann 
auch zu seiner Verbreitung. 

Bald wurden auch für andere Systeme, 
wie beispielsweise CP/M, entspre¬ 
chende C-Compiler entwickelt. Hier¬ 
bei enstanden aber die verschiedensten 
Dialekte, die sich mehr oder weniger 
auf das Kernighan-und Ritchie- C, kurz 
K&R-C, bezogen. Das war natürlich 
kein Zustand. Hatte man einen Qucll- 
text in C vorliegen, hieß das noch lange 
nicht, daß der eigene Compiler auch in 
der Lage war, diesen zu verarbeiten. 
Anfang 1989 wurde man sich dann 
halbwegs einig, und das American Na¬ 


tional Standard Institute, kurz 
"ANSI“, verabschiedete eine Sprach- 
definition für C. 

Da die C-Compiler, die wir Ihnen hier 
vorstellen möchten, schon um 1985 
und früher entwickelt wurden, entspre¬ 
chen diese dem ANSI-Standard nur in 
begrenztem Umfang. Da es sich hier 
aber meist um nur geringfügige Abwei¬ 
chungen handelt, sind die Anpassun¬ 
gen der Programme meist einfach zu 
realisieren. 

Vorweg noch ein paar Bemerkungen: 
Wir haben die Compiler immer auf 
Grundlage der Erstellung einer aus¬ 
führbaren Programmdatei(COM-Da- 
tei) verglichen. Hierfür wurden zwei 
Listings herangezogen: ein "leeres“ 
Programm der Form: 

/*Listing TEST.C*/ 

# lnclude <stdio.h> (bzw. iolib.h) 
main{) 

\ 

> 

und das für C-Code halbwegs reprä¬ 
sentative Programm “COUNT. C“, 
welches im Anschluß abgedruckt ist. 
Das abgedruckte Listing entspricht der 
Syntax des Small-C-Compilers von 


Kotulla. Um es mit den anderen Com¬ 
pilern nutzen zu können, muß es natür¬ 
lich entsprechend angepaßt werden. 
Beginnen wir mit dem Small-C-Ent- 
wicklungssystem. Dieses Paket stellt 
eine Einheit von Editor, C-Compiler, 
Assembler und Linker dar. Zusätzlich 
werden auf den insgesamt drei Disket¬ 
ten viele nützliche Utilities geliefert. 
Zu allen Programmen einschließlich 
dem Compiler, Assembler und so wei¬ 
ter wird der C-Qucllcode mitgeliefert. 
Hierdurch hat man alle Möglichkeiten 
offen, selbst Modifikationen des Com¬ 
pilers sind unproblematisch. Anfänger 
erhalten umfangreiches Anschauungs¬ 
material in Form dieser Quelltexte. 

Das Small-C-Entwicklungs- 
system 

Nachteilig ist das Fehlen einer Fließ¬ 
kommabibliothek und die Übersetzung 
in den unflexibleren 8080-Code. Von 
Vorteil ist die Übersetzung in Assem¬ 
blerquelltext und die dadurch mögliche 
Nachbearbeitung und Optimierung per 
Hand. Das Einfügen von Assemblerbe¬ 
fehlen in den C-Quelltext ist auch ohne 
weiteres zwischen den Anweisungen 
#asm und #cndasm möglich. 

Zum Erstellen eines Programmes sind 
insgesamt vier Schritte notwendig: 

1. Erstellung des Programmtextes 

2. Compilieren 

3. Assemblieren 

4. Linken 

Für die Schritte zwei bis vier legt man 
sich am besten eine Submit-Datei an. 
Diese könnte beispielsweise folgendes 
Aussehen haben: 

cc $1 -a -p 
raac $1 -? 
lnk$l c.lib 

Das zeitaufwendigste der drei Pro¬ 
gramme ist das Linkprogramm. Die 
Gesamtzeit für die Übersetzung liegt 
im noch als gut einzuschätzenden Be¬ 
reich. Mit der Länge der ausführbaren 
Programme liegt das Small-C-Ent- 
wicklungssystcm an dritter Stelle der 
hier verglichenen Compiler. 

Der Compiler, wie auch die beiden an¬ 
deren Programme, gibt zwar Klartext¬ 
meldungen aus, aber verrät leider nicht 
die Nummer der Zeile, in der der Feh¬ 
ler auftritt. Die Fehlersuche wird hier¬ 
durch etwas erschwert. 

Folgendes ist nicht implementiert: 

- Fließkommadatentypen 

- mehrdimensionale Felder 
— Strukturen und Unions 

- Bit-Felder 

— Zeigerarrays 

Trotz dieser Nachteile steht aber dem 
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Programmierer noch eine genügend gro¬ 
ße Untermenge des Standard-C zur Pro¬ 
grammentwicklung zur Verfügung. Das 
Small-C-Entwicklungssystem wird mit 
einem guten deutschen Handbuch gelie¬ 
fert. 

Small-C(PD) 

Die für Anfänger wohl attraktivste, da 
billigste Version eines C-Compilers ist 
dieses SmaJI-C. Die amerikanische Ori¬ 
ginalversion ist in der Public-Domain, 
aber leider in der ursprünglichen Form 
auf dem CPC oder dem Joyce nicht lauf¬ 
fähig. Von Marlin Kolulla wurde diese 
Version angepaßt und die Bildschirm¬ 
meldungen ins Deutsche übersetzt. 
Beim Kauf erhält man eine Drei- 
Zoll-Diskette und ein deutsches Hand¬ 
buch. Auf der Diskette befinden sich 
noch der notwendige Assembler ZM AC, 
der Linker ZL1NK und ein Editor zur 
Bearbeitung des Quelltextes. 

Der Sprachumfang des Compilers stellt 
eine Untermenge des Standard-C dar. 
Die Bibliotheksbezeichnungen sind lei¬ 
der nicht kompatibel gehalten. So nennt 
sich beispielsweise die notwendige Stan- 
dard-Inelude-Datei hier nicht stdio.h 
sondern iolib.h. Aberdas sind eigentlich 
nur Kleinigkeiten, die man sich schnell 
eingeprägt hat. 

Es gibt auch eine Sonderfunktion für die 
Ein- beziehungsweise Ausgabe von bi¬ 
nären Daten mit der Bezeichnung putb() 
beziehungsweise getb( ). Besonders her¬ 
vorheben sollte man die implementierte 
Fließkommaarithmetik. Auf folgende 
Dinge müssen Sie bei diesem Small-C 
verzichten: 

— Statements: 

- for 

- do-while 

- switch-case 

- default 

- goto 

- mehrdimensionale Felder 

- Structuren und Unions 

- Zeiger auf Felder 

Zur Programmcompilierung sollten Sie 
sich hier ebenfalls eine Submit-Datei an- 
legen, hier ein Beispiel wie diese für un¬ 
ser Beispiellisting aussehen müßte: 

CO $1 

zmac $1=$1 

zlink $1=$1,iolib,printfl,args 

ZHO-Assemblerquelltext kann ebenfalls 
problemlos in den C-Quelltext eingebun¬ 
den werden. Der Compiler übersetzt die 
C-Quelle in Z80-Assemblerquelltext. 
Dieser kann dann nötigenfalls noch per 
Hand optimiert werden. Anschließend 
übersetzt diesen der Assembler ZMAC 
in eine Objektdatei, die dann durch den 


Linker ZLINK zu einer COM-Datei ge¬ 
bunden wird. Die Größe der entstehen¬ 
den COM-Datei richtet sich stark nach 
den zusätzlich eingebundenen Bibliothe¬ 
ken. Da viele Implementationen des 
ANSI-C fehlen, ist es wohl mit diesem 
Compiler am kompliziertesten, ein ande¬ 
res Programm auf diesen umzusetzen. 
Zur Entwicklung eigener Programme 
und zum Erlernen der Sprache C ist die¬ 
ser aber gut geeignet. 

Hisoft C 

Mil dem Hisoft C erhält man auf einer 
Drci-Zoll-Diskette ein Paket aus zwei C- 
Compilern nebst zugehörigem Editor. 
Einer davon ist als Besonderheit auf dem 
CPC von AMSDOS aus slartbar. Selbst 
auf dem CPC 464 mit nur dem Kasset¬ 
tenlaufwerk ist dieser uneingeschränkt 
benutzbar. Als besonderes Bonbon für 
BASIC-Freaks ist eine kommplctte Bi¬ 
bliothek der BASIC-Bcfehle vorhanden. 
Somit wird ein sehr schnelles Umlcmen 
möglich. Erkauft wird das alles durch 
eine sehr geringe Kompatibilität zum 
ANSl-Standard. 


Dqn Vergleich mit dem ANSI-C hält die 
CP/M-Variante schon eher stand. Ab¬ 
weichungen gibt es da beispielsweise bei 
der Nutzung der Argumentenübergabe 
aus der Kommandozeile. So muß, bevor 
die Argumente zur Verfügung stehen, als 
erstes eine Funktion namens 

epm_emd_line() aufgerufen werden. 

Leider hat auch dieses C keine Fließ- 
kommalunktionen. Die Syntax der vor¬ 
handenen Funktionen entspricht größten¬ 
teils der des ANSI-Cs. Zu beachten ist 
hier, daß Variablen nicht innerhalb des 
Funktionsnamens deklariert werden dür¬ 
fen. Beispiel: 

ANSI-C: 

int funlction{ehar parametex 1 ) 


Hisoft-C: 

int funlction(parameter) 
ehar Parameter; 


C-Sprachumfang nach dem ANSl-Standard 

Dateibefehle: 


*fopen 'freopen 

fflush 

fclose 

remove 

rename 

‘tmpfile 

‘tmpnam setvbuf 

setbuf 

fseek 

ftell 

rewind 

fgetpos 

Ein- und Ausgabebefehle: 





fprintf printf 

sprintf 

vprintf 

vfprintf 

vsprintf 

fscanf 

scanf sscanf 

fgetc 

’fgets 

fputc 

fputs 

getc 

getchar *gets 

fwrite 

putc 

putchar 

puls 

ungetc 

fread 

Fehlerbehandlung:: 

clearerr feof 

perror 





Tests für Zeichenklassen und Umwandlung: 



isalnum isalpha 

iscntrl 

isdigit 

isgraph 

islower 

isprint 

ispunct isspace 

isupper 

isxdigit 

toupper 

tolower 


Zeichenketten-Operationen: 





‘strepy ’strncpy 

"streat 

“strncat 

stremp 

strnemp 

'strehr 

‘strrchr strspn 

strespn 

'strpbrk 

* strstr 

strlen 

‘strerror 

Mathematische Funktionen: 





sin cos 

tan 

asin 

acos 

atan 

atan2 

sinh cosh 

tanh 

exp 

log 

log 10 

pow 

sqrt ceil 

floor 

fabs 

Idexp 

frexp 

modf 

Hilfsfunktionen: 

atof atoi 

atol 

strtod 

strtol 

strtoul 

rand 

srand 'calloc 

*malloc 

'realloc 

free 

abort 

exit 

atexit System 

div Idiv 

'getenv 

‘bsearch 

qsort 

abs 

labs 

Globale Sprünge und Signale: 





setjmp longjmp 

'Signal 

raise 




Zeit- und Datumsfunktionen: 





clock time 

localtime strftime 

difftime 

mktime 

‘asetime 

'ctime 

'gmtime 
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Compiler 

Small-C(Kotulla) 

Small-C-Entwickl. 

Highsoft-C 

Arnor C 

Größe von 

TEST.COM in kByte 

4096 

6272 

4736 

25856 

Größe von 
COUNT.COM in 
kByte 

9088 

10112 

7168 

26624 

Übersetzungsge¬ 

schwindigkeit 

Bezugsmöglichkeit 

sehr gut 

Fa. Weeske 

gut 

Fa. Wiedmann 

gut 

Fa. Wiedmann 

mäßig 

Fa. Wiedmann 
Fa. Weeske 

Preis in DM 

20.00 

99.00 

199.50 

199.00/225.00 


Die Quelltextentwicklung können Sie 
mit dem mitgelicferten Texteditor vor¬ 
nehmen. Die Compilierung geschieht in 
einem Zuge mittels HC.COM. Findet 
der Compiler einen Fehler, so gibt er 
eine Klartextmeldung aus. Durch 
Drücken der Taste < E> kann nun auf 
Wunsch der Editor gestartet werden. Der 
Cursor rückt dabei nach dem automati¬ 
schen Laden des Quelltextes selbständig 
auf die Position der Zeile, in der der Feh¬ 
ler auftrat. 

Damit ist ein “Entwanzen“ ähnlich wie 
unter TURBO-Pascal möglich. Das nach 
erfolgreicher Übersetzung entstandene 
Maschinenprogramm(.COM-Datei) ist 
an Kürze von den anderen vorgestellten 
Compilern nicht zu übertreffen. 

Die ganze Sache wird aber von dem nur 
auf Englisch zu erhaltenen Handbuch ge¬ 
trübt. Solange man auf Fließkommaope¬ 
rationen verzichtet, ist es mit diesem 
Compiler nach unseren Erfahrungen am 
einfachsten, einen Quelltext nach dem 
ANSI-Standard zum Laufen zu be¬ 
kommen. 

Amor C 

Ein sehr kompaktes Paket erhält man mit 
dem Arnor C. Der Editor bildet gleich¬ 
zeitig eine Bedienoberfläche, von der aus 
alle anderen möglichen Aktionen gestar¬ 
tet werden können. Für den Editor be¬ 
steht eine integrierte On-Line-Hilfe. 
Den Übersetzungsvorgang startet man 
am einfachsten mit AC.COM. Dieses 
Utility übernimmt dann den Rest der Ar¬ 
beit wie compilieren, linken und selbst 
den ersten Programmstart nach erfol¬ 
greicher Übersetzung. 

Im Unterschied zu den anderen Compi¬ 
lern ist das Ergebnis der Programment¬ 
wicklung kein ausführbares Maschinen¬ 
programm. Nur durch den Start mit Hilfe 
des Run-Time-Systems kann es zur Aus¬ 
führung gebracht werden. Da also nicht 
an jeder Datei die Laufzeitbibliothek an¬ 
hängt, wird natürlich Platz gespart. 
Möchte man aber ein ausführbares Pro¬ 
gramm. so kann man sich dies durch die 
Routine MAKECOM erstellen lassen. 
Die ausführbaren COM-Dateien fallen 
aber bei diesem Compiler außerordent¬ 
lich groß aus. 

Bei Arnor C wird es wohl am einfachsten 
sein, ein ANSI-C Programm umzuset¬ 
zen. da auch eine Fließkommabibliothek 
implementiert ist. BeimCPC sollte man 
aber ein Zweitlaufwerk angeschlossen 
haben, da man nicht alle benötigten Da¬ 
teien immeraufeine 178 kByte Disket¬ 
tenseite bekommt. 


Nun noch einige Hinweise zu unserem 
Beispicllisting COUNT.C. COUNT 
zählt das Auftreten der Codes 0 bis 255 
in einer beliebigen Datei und gibt diese 
je nach Wunsch der Größe nach geord¬ 
net oder geordnet nach der Häufigkeit 
des Auftretens aus. 

Das Programm besteht aus sechs 
teilen. 

1. Hauptprogramm: Erledigt die Argu- 
mentenübergabe. das Öffnen und Schlie¬ 
ßen der Datei und die Auswertung der 
Schalteroption aus der Kommandozeile. 
Außerdem wird der Aufruf der Untcr- 
routinen koordiniert. Im Fehlerläll wird 
badarg () aufgerufen. 

2. badargQ: Wird im Fehlerfall 
vom Hauptprogramm aufgerufen. Es 
gibt einen Syntaxhinweis aus, und been¬ 
det das Programm vorzeitig mit exit(). 

3. countO: ist eine Prozedur zur Regi¬ 
strierung der Häufigkeit eines Zeichens. 
Die Bytes(Zeichen) werden einzelnen 
aus der Datei gelesen und ihr Wert dient 
als Index für ein Feld aus 256 Bytes. Das 
jeweils ausgewählte Feldelement wird 
um eins erhöht. 

4. ausgabO: gibt die Anzahl der jewei¬ 
ligen Zeichen in Reihenfolge ihrer Größe 
aus. 

5. prcharO: Falls ein Zeichen im Be¬ 
reich von 32 bis 127 liegt, also ein dar¬ 
stellbares Zeichen ist, wird es auf den 
Bildschirm ausgegeben. Diese Prozedur 
wird von aus gab () und ausgroesQ auf ge¬ 
rufen. 

6. ausgroesO: Diese Routine gibt die 
Zeichen, nach der Häufigkeit ihres Auf¬ 
tretens geordnet, auf dem Bildschirm 
aus. Hierzu werden zwei Hilfsfclder an¬ 
gelegt. Ein Feld wird zur Registrierung 
der Reihenfolge der Zeichen nach der 
Häufigkeit, und das andere Feld zur Re¬ 
gistrierung der Anzahl der jeweiligen 
Codes benötigt. 

Im Quelllext wird vor allem die vom 
ANSI-Standard stark abweichende Ar- 
gumenteniibergabe aus der Komandozei- 


le, und das Lesen einer binären Datei 
verdeutlicht. 

Nach dem Start des Programms aktiviert 
als erstes die Funktion setargsQ die Ar- 
gumentenübergabe. Anschließend er¬ 
folgt die Übergabe der Argumente mit 
der Funktion gclarg(). Im Fehlerfall gibt 
diese den Wert -1 (EOF) zurück, worauf 
hin dann eine Funktion badargO aufge¬ 
rufen wird. Diese gibt einige Syntaxhin¬ 
weise für die Komandozeile aus, und 
beendet das Programm vorzeitig mit 
exit(). 

Wurden die Argumente fehlerfrei über¬ 
geben, wird nun die gewünschte Datei 
mit fopenO zum Lesen geöffnet! Argu¬ 
ment r). Die nun folgende Funktion 
count() zählt das Auftreten der verschie¬ 
denen Codes von 0-255 und legt die 
Werte in einem Feld ab. Nach deren 
Beendigung wird nach Auswertung der 
Auswahloption die jeweilige Ausgabe¬ 
funktion gewählt. Am schnellsten arbei¬ 
tet hierbei ausgab(). Hier werden in ei¬ 
ner Zählschleife die einzelnen Werte 
ausgegeben. 

Die Funktion ausgroesQ führt zuerst ei¬ 
nen etwas zeitaufwendigen Sortieralgo¬ 
rithmus aus, der die Werte der Größe 
nach in einem Feld ablegt. Dieser ist 
recht einfach, mittels einer Schleife wird 
jeweils der größte Wert aus dem Feld 
herausgesucht und dann mit steigendem 
Index auf einem zweiten Feld abgelegt. 
Daraufhin wird der Wert auf Null ge¬ 
setzt. Am Ende dieses Algorithmus sind 
alle Komponenten des Ursprungsfeldes 
gleich Null. 

Anschließend wird wiederum mittels ei¬ 
ner Zählschleife das Feld auf dem Bild¬ 
schirm ausgegeben. In diesem Pro¬ 
gramm wurden absichtlich keine kompli¬ 
zierten Algorithmen eingesetzt, da es 
auch für Anfänger leicht durchschaubar 
sein sollte. 

jg 


Literatur: |11 TOOLBOX 12 -l )0. Ur-C im Abseits. 
DMV-Verlag 
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^★★fc********************************************* 
t * 

► Listing COUNT.C * 
* (c) by j.g. & CPC Intenational * 
' Progranun zur Ermittlung der Haeufigkeit * 
r von Zeichen in einer beliebigen Datei * 


************************************************/ 
/♦Bibliothek mit allen 

noetigen Grundfunktionen*/ 
/♦Bibliothek zur formatierten 
Ausgabe von Strings und 
Integerwerten*/ 

/♦Bibliothek mit Funktionen 
zur Uebergabe von Argumenten 
aus der Komandozeile*/ 
/♦Definition der Konstante 
fuer Dateiende*/ 


#include iolib.h 
finclude printfl.h 

linclude args.h 

#define EOF -1 


main() 

int *fp, /*Filepointer*/ 

byte, /»gelesenes Zeichen*/ 

tab[256];/*Feld zum Zaehlen fuer 256 
moegliche Zeichen*/ 
char name[16], /*Stringvariable fuer 
Dateiname*/ 

o[2]; /»Auswahloption*/ 

setargs(); /»Initialisierung der 

Argumentenuebergabe*/ 

/♦Uebergabe des 1.Arguments mit Fehlerauswertung, 
wenn der Rueckgabewert EOF ist wurde kein 
Argument uebergeben und das Programm wird nach 
der Fehlermeldung mit exit vorzeitig verlassen*/ 

if(getarg(l,o,2)==E0F) badarg(); 
if(getarg(2,name,16)==EOF) badarg(); 

fp=fopen(name,"r"); /»Datei oeffnen*/ 

/»Aufruf von count, als Argumente werden in diesem 
Fall Zeiger uebergeben, fp zeigt auf den 
Dateideskriptor, tab zeigt auf den 
Anfang des Feldes tab[]*/ 

count(fp,tab); 

/♦Aufruf der gewuenschten Ausgaberoutine, als 
Argument wird ein Zeiger auf den Beginn des 
Feldes tab(] uebergeben, trifft keine Option 
zu wird ebenfalls badarg aufgerufen*/ 

i f(upper(o[0]) == 'R') 
ausgab(tab); 

eise if(upper(o[0])=='H') 
ausgroes(tab); 
eise badarg(); 

fclose(fp); /»Schliessen der Datei*/ 

/♦Ende des Hauptprogramms*/ 

/'♦Ausgabe eines Syntaxhinweises bei 
falschen Argumenten*/ 
badarg() 


{ 


printf("Fehler in der Eingabezeile\n"); 
printf("Aufruf:\n"); 

printf("Ausgabe in Reihenfolge : "); 

printf(" count r Datei\n"); 

printf("Ausgabe nach Haeufigkeit: "); 

printf(" count h Datei\n"); 

exit(O); /»Programm vorzeitig beenden*/ 


/♦Prozedur zur Registrierung der Haeufigkeit 
eines Zeichens*/ 

count(dd,feld) 

int *dd, /»Enthaelt den Zeiger auf den 
Dateideskriptor*/ 

♦feld; /*Enthaelt den Zeiger auf 
das Variablenfeld*/ 

int byte,c; /*c-Schleifenzaehler*/ 
c=0 ; 

/♦alle Werte des Feldes auf Null setzen*/ 


while(c!=256) /»Abbruch wenn c=255*/ 

feld[c++ J= 0 ; 

/♦Feld mit Index c auf Null setzen, 
dann c incrementieren*/ 


while((byte=getb(dd))!=EOF) /»Lesen und 
Test auf Erreichen 
des Dateiendesi*/ 
feld[byte]++; /»Feldvariable mit 
Index byte incrementieren*/ 


} 

/♦formatierte Bildschirmausgabe in 
Reihenfolge der Codes*/ 

ausgab(feld) 
int *feld; 

{ 

int c, /»Schleifenzaehler*/ 
z; /»Zeilenzaehler*/ 


c=z= 0 ; 

while(c!=256){ /»Abbruch bei c=256*/ 

if(z++ ==21){ /»Nach Ausgabe */ 

getchar(); /»von 21 Zeilen */ 

z=0; /»Warten auf */ 

} /»Tastendruck */ 

printf("Dez: %3d Hex: %2x Z: ”,c,c); 
prchar(c); 

printf(" Anzahl: %d\n",feld[c++]); 

} 

} 

/♦Ausgabe eines Codes als Zeichen, falls es 
darstellbar ist*/ 

prchar(z) 
int z; 

{ 

if(z>31 & z<128) 

putchar(z); 

) 

/♦formatierte Bildschirmausgabe geordnet 
nach der Haeufigkeit des Auftretens*/ 


ausgroes(feldl) 
int *feldl; 


{ 


int c,cc, /»Schleifenzaehler*/ 
z, /»Zeilenzaehler*/ 
max, /»momentan groesster Wert*/ 
ind, /»Index des groessten Wertes*/ 
feld2(256], /»Tabelle mit 

nach Haeufigkeit 
sortierten Werten*/ 

feld3[256]; /»Tabelle fuer Haeufigkeiten*/ 
c=cc=0; 

while(c!=256){ 

max=feldl(cc]; /»l.Wert merken*/ 
ind=0; 

while(++cc!=256) 


/♦l.Wert mit 2. 
vergleichen, wenn groesser 
merken*/ 

if(max<feldl[cc]){ 

max=feldl[cc]; 
ind=cc; 

}; 

/»groessten Wert im Feld mit Index 

c ablegen*/ 

feld2[c]=ind; 

feld3[c++]=max; /»Anzahl merken*/ 
feldl[ind]=cc=0; 

) 


/♦Bildschirmausgabe*/ 
c=z=0; 

while(c!=256 ) { /»Abbruch bei c=256*/ 

if(z++ ==21){ /»Nach Ausgabe */ 

getchar(); /*von 21 Zeilen */ 

z=0 ; /*V?arten auf */ 

} /»Tastendruck */ 

printf("Dez: %3d Hex: ",feld2[c]); 
printf("%2x Z: ",feld2[c]); 
prchar(feld2 [c J ); 

printf(" Anzahl: %d\n",feld3 [c++] ); 

} 
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Probleme mit INLINE? 

Anzeige der Registerinhalte 
in TURBO-Pascal 

Benutzen Sie in Ihrem TURBO-Pascal-Programm die INLI- 
NE-Anweisung, und haben Sie Schwierigkeiten beim Austesten 
Ihres Programms? Hier hilft Ihnen die Prozedur Z80-INEO. 


Die meisten Programme lassen sich mit 
Hilfe einer höheren Programmierspra¬ 
che schneller entwickeln als in Assem¬ 
bler. Programmerstellung in Assem¬ 
bler ist da immer etwas zeitraubender. 
Aber es gibt auch Beispiele, wo eine 
von höheren Programmiersprachen 
nicht zu erreichende Ausführungsge- 
schwindigkeit gefragt ist. Das ist dann 
die Stunde des “Inline-Codes“: Man 
beitet Assembler-Programmroutinen 
in ein Hochsprachenprogramm ein. 
Was in BASIC der POKE-Befeht in 
Zusammenhang mit dem CALL ist, 
löst man in TURBO-Pascal mit der IN¬ 
LINE-An Weisung. 

Hiermit wird dem Programmierer die 
höchstmögliche Ausführungsge¬ 

schwindigkeit geboten. Man denke nur 
an Grafikroutinen, bei denen immer 
Höchstgeschwindigkeit gefragt ist. Ein 
Beispiel für die Übersetzung eines 
Werte Vergleichs, um ein Punktsetzen 
außerhalb des Bildschirms zu vermei¬ 
den, wird in der Abbildung gezeigt. 
Aus dem relativ kurzen Quelltext wer¬ 
den 88 Bytes Maschinenprogramm. 
Als besonders zeitraubend sind auch 
die vier Aufrufe der Laufzeitbibliothek 


anzusehen. In Assembler program¬ 
miert. kommt man bei diesem Beispiel 
mit etwa 17 Bytes aus. 

Dieses sehr viel kürzere Programm 
kann dann natürlich auch entsprechend 
schneller abgearbeitet werden. Wer 
schon einmal mit INLINE-Anweisun¬ 
gen gearbeitet hat, weiß aber auch, wie 
schwierig und zeitaufwendig es ist, se¬ 
mantische Fehler im Maschinencode 
zu finden (Semantische Fehler sind 
Fehler im gedanklichen Aufbau eines 
Programmes -syntaktische sind dage- 
gen Fehler welche der Grammatik der 
Sprache widersprechen, die letzteren 
findet der Compiler bei der Überset¬ 
zung). Eine Fehlersuche ohne Hilfs¬ 
mittel ist nahezu unmöglich. 

Während man die semantischen Fehler 
im Pascal-Code durch Einfügen von 
Schreibanweisungen finden kann, geht 
dies bei den INLINE-Anweisungen 
nicht. Hier lassen sich keine zusätzli¬ 
chen Befehle aus dem Befehlsvorrat 
von Pascal einfügen. 

Fein raus sind lediglich diejenigen, die 
vorher ihre Inlines mit Hilfe eines As¬ 
semblers austesten können. Doch auch 
sie werden Schwierigkeiten bei der 


Übertragung in den Pascalcode haben, 
cs sei denn, sie besitzen einen INLINE- 
Generator. Jetzt kann Ihnen jedoch ge¬ 
holfen werden. 

Während des Compilierens binden Sie 
einfach mittels Include-Anweisung das 
Modul Z80-INFO.INC ein. An die zu 
testenden Stellen plaziert man nun die 
IN LI NE-Anweisung 

$ed/Z80_INF0/(*Call Z80_INFO*). 

Nun erhält man auf dem Bildschirm ei¬ 
nen vollständigen Überblick über den 
Zustand der Z80-Register. Alle wer¬ 
den angezeigt, die Hauptregister bit¬ 
weise und hexadezimal, Indexregister, 
Programmzähler und Stackpointer nur 
hexadezimal (Der Programmzähler 
zeigt natürlich die Stelle, an der zur 
Procedur Z80_Info verzweigt wur¬ 

de). Anschließend wird gefragt, ob das 
Programm abgebrochen oder fortge¬ 
setzt werden soll. Dies ist notwendig, 
um beispielsweise aus Endlosschleifen 
herauszukommen, und macht einen 
RESET last überflüssig. 

Entscheidet man sich für die Fortfüh¬ 
rung des Programmes, so wird der Pro¬ 
zessor wieder in seinen alten Zustand 
versetzt, den er unter anderem durch 
die Ausgabe der Registerinhalte verlo¬ 
ren hatte. Eines muß man jedoch dabei 
beachten: Das Einfügen eines Aufrufes 

der Prozedur Z80_INFO beansprucht 

drei Bytes (CALL-Befehl plus Adres¬ 
se). Dies muß bei allen Sprung oder 
besser Verzweigungsbefehlen berück¬ 
sichtigt werden. Eine Empfehlung: 
Man schafft an allen möglicherweise 
zur Registcrausgabe interessanten Stel¬ 
len Platz, indem man drei NOPs (No 
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Z 80 - Status 

Erstregister: 

A SZ-H.-PNC B C D E H L 

1111.1111 1100.1010 1111.0000 0000.0000 0010.0000 1101.1110 1000.1101 1100.1001 
$FF $CA $F0 $00 $20 $DE $8I> $C9 

Zweitregister: 

A SZ-H.-PNC B C l> E II L 

1011.1011 1010.1100 0000.0000 0000.0000 OIII.1Ü1I 0110.0100 0101.1110 1000.1101 
$BB $AC $(M) $00 $7B $64 $5E $81) 

Index- und Adressregister 

IX IV SP PC 

$790A $951)F $1580 $95 Al 

Weiter / Halt (W/Ill ? 


Operation, Code &00) einfügt. Diese 
können dann bei Bedarf durch den Auf¬ 
ruf von Z80_INFO ersetzt werden. 

Läuft das Programm dann zufrieden¬ 
stellend, kann man in einem zweiten 
Anlauf die NOPs wieder entfernen. 
Dabei sollte man darauf achten, daß 
man die Verzweigungsbefehle wieder 
um drei Bytes herauf beziehungsweise 
heruntersetzt. Hier noch einige An¬ 
merkungen zum Programm: 

1. Benötigt man nicht die komplette 
Ausgabe, so kann durch Einfügen von 
der Kommentarzeichen “{“ und “]“ in 
der Prozedur ausgabe diese einfach va¬ 
riiert werden. Man kann so zum Bei¬ 
spiel auf die binaäre Ausgabe verzich¬ 
ten oder sich den Zustand der Hinter¬ 
grundregister nicht anzeigen lassen. 
Dies schafft Übersicht, und man ge¬ 
winnt Zeit. 

2. Nicht nur für das Austesten von Inli- 
ne-Anweisungen ist das Programm zu 
gebrauchen, sondern auch zum Lernen 
und Verstehen der einzelnen Z80-Be- 
fchlc. Weiß man nicht genau, was ein 


So zeigt 7.80 _ INFO 

die aktuellen 
Registerinhalte an. 

Befehl bewirkt, so kann man sich die 
Wirkung mit Hilfe von Z80_INFO 
leicht veranschaulichen. 

Ein Anwendungsbeispiel für die Proze¬ 


dur Z80_INFO zeigt das Programm 

Z80_DEMO.PAS. Viel Spaß bei der 

Arbeit “hart am Bit“. 

H. Hagemeyer,jg 


Z80DEMO . PAS 

Demonstriert die richtige Anwendung der 
Prozedur Z80_INFO in INLINE - Anweisungen. 
Dient gleichzeitig als Testprogramm. 

(c)1991 H.Hagemeyer & CPC International 


PROGRAM inline demonstration; 

<*$[ Z80-INFO.INC Einbinden der Prozedur Z80 INFO*) 

CONST WERT - $FF; 

ÜEGIN 

INLINE( 

$3E/WERT/ (* LD A, WERT ;Demo Schleife *) 

(*L1*) SCD/Z80 INFO/ (* CALL Z80_INFO ;Ausgabe des 

Prozessor - *) 

(* Status (A=FF bis 01h)*) 

S3D/ (* DEC A ;A <-- A - 1 (A = FEh) *) 

$E6/$07/ (* AND 07h ;Ausblenden der 
4 oberen*) 

(* ;Bit 's {A = OEh *) 

$C2/*-7/ (* JP NZ, LI ; Schleifenanfang *) 

$CD/Z80 INFO/ 

$3E/WERT/ 

$47/ 

$CD/Z80 INFO/ 

$48/ ~ 

SCD/Z80 INFO/ 

$57/ 

$CD/Z80 INFO/ 

$5F/ 

$CD/Z80 INFO/ 

$67/ 

SCD/Z80 INFO/ 

$6F/ 

SCD/Z80 INFO/ 

$DD/$217WERT/WERT/ (* LD IX,WERT*) 

SCD/Z80 INFO/ (* CALL Z80 INFO ;IX = FFFFh 
*) 

$FD/$21/WERT/WERT/ (* LD IY, WERT,WERT *) 
SCD/Z80 INFO/ (* CALL Z80 INFO ;IY = FFFh *) 
$E5/ {* PUSH HL *) 

SCD/Z80 INFO/ (* CALL Z80 INFO ; Stapelzeiger 
- 1 *) 


t* 

CALL Z80 INFO 

;ZERO - FLAG 


- I M 





(* 

LD A,WERT *) 





(* 

LD B,A *) 





(* 

CALL Z80 INFO 

;B 

= 

FFh 

*) 

(* 

LD C,B *7 





(* 

CALL Z80 INFO 

;C 

= 

FFh 

*) 

(* 

LD D,A *T 





(* 

CALL Z80 INFO 

;D 

33 

FFh 

*) 

(* 

LD E,A *7 





(* 

CALL Z80 INFO 

;E 

= 

FFh 

*) 

(* 

LD H,A *7 





(* 

CALL Z80 INFO 

;H 

= 

FFh 

*) 

(* 

LD L,A *7 





<* 

CALL Z80 INFO 

;L 

= 

FFh 

*) 


SEI/ {* POP HL ; Stapelzeiget +1 !! *) 

$08/ (* EX AF,AF 1 ;Austausch der *) 

$09/ (* EXX ;Register *) 

SCD/ZOO_TNFO (* CALL Z80 INFO;Register- 
austausch *) 

END. ' 


(* Z80-INFO.INC *) 
(*ein Modul zum Austesten von Inline-Anweisungen *) 
(* der Sprache TURBO PASCAL *) 
(* (c)1991 H. Hagemeyer & CPC International *) 
(*-.-*) 


PROCEDURE Z80_INFO; 

TYPE strl = STRING [10]; 


Die Hauptregister des Z80 - Prozessors A, B, C, D, 
H, L und das Flagregister F sind als Byte 
definiert, ebenso die Hintergrundregister A’, B’, 

Die Reihenfolge der Definitionen darf nicht 
veraendert werden,da in den Inline - Anweisungen 
ausgenutzt wird, das F hinter A, C hinter B etc. 
liegt ! 

Die Indexregister IX und IY sind als Integer 
definiert, welche 2 Bytes belegen, ebenso der Stack 
- Pointer (Stapel - Zeiger SP) und der Programm - 
Counter (Programm - Zaehler PC). 

----- *) 

VAR 

A, F, B, C, D, K, H, L, (* Hauptregister *) 

As,Fs,Bs,Cs,Ds,Es,Hs,Ls : BYTE; 

(*Hintergrundregi.ster des Z 80 Prozessors*) 

IX,IY,SP,PC : INTEGER; 

(*Index- und Adressregister *) 



<* 

Gibt den Hex.-Wert, eines Byte als String zurueck 
*) 


FUNCTION hexbyte (B : BYTE) : strl; 

(* Gibt den Hexcode eines 
Nibbles (4 Bit) zurueck) *) 
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FUNCTION hexteil (x 
CONST null = 48; 

A = 55; 


BYTE): CHAR; 

(* ASCII von 0 
(* " von A *) 


BEGIN 

CASE X OF 

0.. 9 : hexteil := Chr(x + null); 
o .. 9 *) 

10..15 : hexteil := Chr(x + A ); ( 
.. F *) 

END; 

END (* hexteil *); 


(* Ziffer 
* Ziffer A 


BEGIN (* hexbyte *) 

hexbyte : = hexteil(B SHR 4) + hexteil(B AND $0F) 


(* Gibt den Hex. -Wert zweier Bytes als String 
zurueck *) 


FUNCTION hexint (i : INTEGER) : strl; 

BEGIN 

hexint := hexbyte(i SHR 8) + hexbyte(i AND $00FF); 


(* Gibt den Binaerwert. eines Bytes als String 
zurueck *) 


FUNCTION binaerbyte (A : BYTE) : Strl; 

VAR i : BYTE; s : strl; 

BEGIN 

s := " ; i := $80; 

REPEAT 

IF ((i AND A) <> 0) THEN s := S + '1' (* 
Ausblenden mit i *) 

ELS Es := s + ’ 0 ' ; 

IF i = $30 THEN s := s + (* In der Mitte 


einen . * ) 
i := i SHR 1 
UNTIL i = $00; 
binaerbyte := s + 
anhaengen *) 

END; 


(* naechstes Bit *) 

( * Herausgeschoben *) 
(* Blank fuer Ausgabe 


*) 


(* Ausgabe auf dem Bildschirm der einzelnen 
Register. A, F, B, C, ... sind *) 

(*als lokale Variablen (inerhalb der Procedure 
Z80 info) definiert.*) 


PROCEDURE ausgabe; 

VAR ch : CHAR; 

BEGIN 

ClrScr ; Write(' ' : 32 ) ; WnteLn('Z 80 - 
WriteLn; 

WriteLn( ' Erstregister : ' ) ; WriteLn ; 
WriteLn(' A SZ-H.-PNC B 
' D E ' , 

' H L ’) ; 

WriteLn; 

Write (binaerbyte (A) /binaerbyte (F)) ; 
write(binaerbyte(B),binaerbyte(C)) ; 
Write(binaerbyte(D),binaerbyte(E)) ; 
Writeln(binaerbyte(H) ,binaerbyte(L) ); 


STATUS'); 


C’ , 


WriteLn('$ 1 + hexbyte(A): 6,'$' + 
hexbyte(F) : 10, 1 $’ + hexbyte(B) : 10, 

'$' + hexbyte(C) :1 0, '$’ + 
hexbyte(D):10,'$' + hexbyte(E ): 10, 

'$’ + hexbyte (H) : 10, 1 $ ' + hexbyte(L): .1 0 
WriteLn; WriteLn; WriteLn('Zweitregister '); 
WriteLn; 

WriteLn(' A SZ-H.-PNC B C', 

• D E ' , 

• H L’); 

WriteLn; 

Write(binaerbyte(As),binaerbyte(Fs)) ; 

Write(binaerbyte(Bs),binaerbyte(Cs)); 

Write(binaerbyte(Ds)»binaerbyte(Es)) ; 

Writeln(binaerbyte(Hs)»binaerbyte(Ls)); 


WriteLn('$' + hexbyte (As): 6 , 1 S ' + 
hexbyte(Fs):1 0, 1 $ 1 + hexbyte(Bs) : 10, 

'$’ + hexbyte(Cs ): 10,'$’ + 
hexbyte(Ds) : 10,'$ ' + hexbyte(Es) : 10, 
'$' + hexbyte (Hs) :10,'$' + 


hexbyte(Ls):10) ; 

WriteLn; WriteLn; 

WriteLn(’Index- und Adressregister'); 

WriteLn; 

WriteLn( 1 IX IY SP PC'); 

WriteLn; 

WriteLn ( 1 $ ' +• hexint (IX) : 7,'S 1 + 
hexint(IY) : 10, 1 $ ' + hexint(SP):10, 

'$' + hex int(PC):10); 

WriteLn; WriteLn; 

Write('Weiter / Halt (W/H) ? '); 

REPEAT Read(Kbd,ch); 
ch := UpCase(ch); 

UNTIL ch IN [’H',’W']; 

IF ch = 'H' THEN Halt; (* Programm abbrechen *) 
END; 

(* - *) 

BEGIN (* Z80_info *) 

INLINE( 

(* Registerinhalte in die 
entsprochenen Variablen bringen: *) 
$ED/$53/E/ (* LD (E),DE ;Lade D und K mit Reg. 
DE *) 

LD (L),HL ;Lade H und L mit 
Reg. HL *) 

$ED/$43/C/ (* LD (C),BC ;Lade B und C mit 
Reg. BC *) 

(* PUSH AF ;Flags u. A *) 

(* POP HL ;nach HL bringen *) 

(* LD (F),HL ;Lade (A) u. (F) mit 
HL = AF ! *) 

(* EX AF,AF' ;Tausche Register 
AF mit AF' *) 

_ (* EXX ; " " *) 

$ED/$53/Es/(* LD (Es),DE ;Lade Ds und Es mit 
Reg. DE' *) 

LD (Ls),HL ;Lade Hs und Ls mit 
Reg. HL' *) 

SED/$43/Cs/(* LD (Cs),BC ;Lade Bs und Cs mit 
Reg. BC’ *) 

PUSH AF ;Flags und Reg. A nach *) 
POP HL ;HL bringen *) 

LD (Fs),A ;Lade (As) u.(Fs) mit 
Reg. HL *) 

$DD/$22/IX/ (* LD (IX),IX ;Lade (IX) mit Reg. 

IX *) 

$FD/$22/IY/ (* LD (IY),IY ; Lade (T.Y) mit Reg. 

IY *) 

$ED/$73/SP/ (* LD (SP),SP ;Lade (SP) mit Reg. 

SP *) 

$E1/ (* POP HL ;Rueckkehradresse holen * 

$E5/ (* PUSH HL ;und retten *) 

$22/PC/ (* LD (PC),HL ;Lade (PC) mit Reg. HL * 
$CD/ausgabe/ (* CALL AUSGABE *) 

(* Da bei der Ausgabe die Register veraendert 
werden, wird im folgenden der urspruengliche 
Zustand wiederhergestellt. *) 

$2A/Fs/ (* LD HL,(Fs) ;Lade HL mit Speicher As 
u. Fs * ) 

$E5/ (* PUSH HL ; und *) 

SF1/ (* POP AF ,-bringe dieses nach AF *) 

$ED/$5B/Es/ (* LD DE,(Es) ;Lade DE mit Speicher 
Ds u. Es *) 

$2A/Ls/ (* LD HL,(LS) ;Lade HL mit 


$22/L/ 


$F5/ 

SEI/ 

S22/F/ 

$08/ 

$D9/ 


$22/LS/ 


$F5/ 

$E1/ 

$22/Fs/ 


(• 


( 


Speicher Hs u. Ls *) 

$ED/$4B/Cs/ (* LD BC,(Cs) ; Lade BC mit Speicher 
Bs u. Cs *) 

$08/ (* EX AF,AF' ;Tausche Register AF 

mit AF' *) 

$D9/ (* EXX ; " " *) 

S2A/F/ (* LD HL,(F) ; Lade HL mit 

Speicher Au. F *) 

$E5/ (* PUSH HL ; und *) 

$F1/ (* POP AF ; bringe dieses nach AF *) 

$ED/$5B/E/ (* LD DE,(E) ;Lade DE mit 
Speicher Du. E *) 

S2A/L/ (* LD HL ,(L) ; Lade HL mit Speicher 
H u.L *) 

$ED/$4B/C/ (* LD BC , (C) ; Lade BC mit Speicher 
B u. C *) 

$DD/$2A/IX/ (* I,D IX, (IX) ;Lade IX mit Speicher 
IX *) 

$FD/$2A/IY/ (* LD IY, (IY) ;Lade IY mit Speicher 
IY *) 

SED/S7B/SP (* LD SP,(SP) ; Lade SP mit Speicher 
SP *) 

) ; 

END; 
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Insider-Informationen 

In dieser Rubrik stellen wir für Sie die Direktverbindung mit den Fachleu¬ 
ten her. Heute erfahren Sie von der Firma Weeske etwas über BTX auf dem 
CPC und was dieser Dienst der Telekom Ihnen bringen kann. 


Die BTX-Angcbotspalette ist schon 
heute außergewöhnlich groß und um¬ 
faßt über eine halbe Million Bild¬ 
schirmseilen. Von aktuellen Nachrich¬ 
ten aus Politik, Wirtschaft und Sport, 
über den Wetterbericht des deutschen 
Wetterdienstes, Lotto- und Totozah¬ 
len. Urlaubsangebote von Reiseveran¬ 
staltern, Fahr- und Flugplanauskünfte, 
lokale Veranstaltungskalender mit 
Vereins-, Theater- und Konzerttermi¬ 
nen, Verkaufsangebote von Kaufhäu¬ 
sern und Versandhandelsunternehmen, 
Immobilienangebote von Maklern, 
Stellenangebote von Arbeitsämtern 
und Firmen, bis hin zum elektroni¬ 
schen Telefonbuch. 

Doch dies ist nur eine Stärke des BTX- 
Dienstes, denn BTX ist ein Dialog-Sy¬ 
stem. In der praktischen Anwendung 
heißt das: Der BTX-Benutzer kann mit 
jedem anderen BTX-Teilnehmer kom¬ 
munizieren. Jeder BTX-Teilnehmer 
kann mit angeschlossenen Rechnern 
der Anbieter Kontakt aufnehmen. Hier 
stehen Buehungs- und Bestellsysteme, 
Informationssysteme und vieles mehr 
zur Verfügung. 


Hier einige Beispiele: 

— Bestellung per BTX: 

Vom Schreibtisch oder Wohnzimmer¬ 
sessel aus und mit sofortiger Auftrags¬ 
bestätigung kann beispielsweise beim 
Versandhaus geordert werden, können 
Eintrittskarten bei der Theaterkasse oder 
Bücher und Schallplatten bei Buchclubs 
und Verlagen bestellt werden. 

— Überweisung per BTX: 

Statt sich in Banken und Sparkassen in 
die oft langen Warteschlangen vor den 
Schaltern einzureihen, kann der BTX- 
Teilnehmer seine Bankgeschäfte zu 
Hause abwickeln: Überweisungen ver¬ 
anlassen, Daueraufträge einrichten, 
Kontoauszüge einsehen. Dies gilt auch 
für das Postgirokonto. 

— Kontakte über BTX: 

Über “Dialogsysteme“ läßt sich an¬ 
onym “smalltalken“, fachsimpeln und 
auch flirten. So lernt man neue Leute 
kennen — allerdings entstehen je nach 
Anbieter des Dialogprogramms unter¬ 
schiedliche Kosten. 

— Spielen mit BTX: 

Auch dies gibt cs im BTX-Angebot: 
Kurzweil und Spaß per BTX. Gruppen- 


Abenteuer und Glücksspiele stehen 
ebenso auf dem Programm wie kniffli¬ 
ge Denkaufgaben. 

Dies sind nur einige Beispiele aus einer 
Vielzahl von Möglichkeiten, die das 
BTX-System dem privaten Teilnehmer 
bietet — zu jeder Tages-und Nachtzeit. 
Denn BTX kennt keinen Feierabend. 
BTX — wie es funktioniert: 

Wollen Sie BTX mit Ihrem Computer 
benutzen so benötigen Sie als CPC- 
Nutzer das früher von Siemens produ¬ 
zierte Schneider-BTX-Modul. Dieses 
wird noch von einigen Händlern aus 
Restbcständen vertrieben und ist im 
Vergleich zu Hardware-Decodern für 
den PC nahezu unverschämt billig, ob¬ 
wohl es die gleiche Leistung bringt. 
Für Benutzer eines Joyce gibt es den 
Wiedmann-BTX-Dckoder. Der Zu¬ 
gang zum BTX-System wird über die 
Telefonleitung hergestellt. Hierzu in¬ 
stalliert die Post eine BTX-Anschluß- 
box “DBT-03“, die BTX-Gerät und 
Telefon miteinander verbindet, auto¬ 
matisch das System anwählt und die ge¬ 
wünschte Information über die Leitung 
transportiert. 

BTX - wie man damit umgeht: 

Mit BTX umzugehen ist schnell ge¬ 
lernt. Und so w'ird's gemacht: BTX- 
Anwahltaste drücken, das persönliche 
Kennwort eingeben, und schon ist der 
Teilnehmer mit dem BTX-Dienst ver¬ 
bunden. Über systematisch aufgebaute 
Inhalts-, Schlagwörter- und Anbieter¬ 
verzeichnisse (Suchbaummethode) fin¬ 
det der BTX-Benutzer Schritt für 
Schritt die Seite im BTX-Angebot, die 
ihn interessiert. 

BTX — w'as es kostet: 

BTX ist ein preiswertes Medium: Die 
einmalige Anschlußgebühr beträgt 
65,— DM, die monatliche Grundge¬ 
bühr 8, — DM. Der Rest hängt von der 
Nutzung ab. Die Verbindungsgebüh¬ 
ren werden nach dem Telefon-Nahtarif 
berechnet. Dazu können noch geringe 
Entgelte kommen, die einige Anbieter 
für spezielle Informationen und Dien¬ 
ste verlangen. 

BTX - wie sicher es ist: 
Umfangreiche Schutzmaßnahmen ga¬ 
rantieren die Sicherheit Ihrer persönli¬ 
chen Daten. Schon bei der Anwahl des 
BTX-Dienstes w'erden individuelle 
Kennungen aus der Anschlußbox und 
Ihr persönliches Kennwort geprüft. 
Die Verwaltung und Sicherung Ihres 
persönlichen Kennwortes bestimmen 
Sie selbst. So wird sichergestellt, daß 
kein Dritter Ihren BTX-Anschluß miß¬ 
bräuchlich benutzt. BTX ist also so si¬ 
cher wie Ihr Telefon. 

(Damasckke/jg) 
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100 DM 
ür 1 

Auf ein Neues! 

Ausgeglichenheit ist diesen Monat angesagt. Unter den 
insgesamt sechs neuen Programmen stellen wir Ihnen 
genau drei Anwendungen und drei Spielprogramme vor. 
Achtung, diesen Monat wird Ihre Kombinationsfähigkeit 
gefragt: beim Zahlenraten, Schiffeversenken oder den 
vertrackten “Magic Rings“ raucht mal nicht der Prozes¬ 
sor Ihres Rechners, sondern Ihr eigener Kopf. 

Aller Anfang ist bei uns nicht etwa schwer, sondern ungeniein 
pfiffig: Wir starten mit einem trickreichen Utility, das Ihren 
Bildschirm etwas durcheinanderbringt. 

Bildschirmwechsel 

Viele Programme laden Grafikbildschirme als Dateien von 
Cassctte oder Diskette nach. Leute, die mit solchen Program¬ 
men arbeiten, sind oft auf der Suche nach Routinen, mit de¬ 
nen sich der Bildwechsel interessanter gestalten läßt. Bei un¬ 
serem Programm BSCREEN wird das alte Bild Punkt für 
Punkt durch das neue ersetzt. Vorausgesetzt natürlich, daß 
sich dieses neue Bild bereits im Speicher ab der Adresse 
&4000 befindet. 

Nach dem Start von BSCREEN.BAS wird zunächst der Code 
in den Speicher gepoket. Anschließend ruft ein “Call &A000 
die 43 Bytes kleine Routine auf. Leider verschwendet das 
Programm in der abgedruckten Form bei der eigenen Softwa¬ 
reentwicklung eine ganze Menge Speicherplatz. Darum soll¬ 
ten Sic in der Zeile 31 den REMark-Belehl entfernen und das 
Programm erneut starten. Es wird nun die Datei 
BSCREEN.BIN auf dem Datenträger erzeugt. Sie kann mit¬ 
tels LOAD”BSCREEN.BIN einfach in eigene Programme 
übernommen werden. 

Falls Sie sich eine eigene Bildershow zusammenstellen wol¬ 


len, orientieren Sie sich bitte an folgendem kleinen Pro¬ 
grammbeispiel: 

10 MEMORY &3 FFF: L0AD"BSCREEN. 3IN“ 

20 LOAD u l. Bild", &4000 
30 CALL &A00Q 
40 L0AD"2. Bild“,S:4000 
50 CALL &A000 
60 ... 

Viel Spaß beim Austesten! Übrigens: das Programm läuft auf 
allen CPCs — also auf dem CPC 464,664 oder 6128 ein¬ 
schließlich der “Plus u -Serie. 

Clemens Lutz/rs 


Kreisschrift 

Bei diesem netten Programm für alle CPCs handelt cs sich, 
wie in der Abbildung “Kreisschrift“ gezeigt, um eine Routi¬ 
ne, die Schriften in eine Kreisform setzt. Hierbei geben Sie 
lediglich den Bildschirmmodus sowie einen beliebigen Text 
mit bis zu 44 Buchstaben in Mode 2 ein. Im Modus 0 stehen 
elf Zeichen zur Verfügung, und der Modus 1 bietet ganze 22 
Zeichen an. Wenn der Modus 1 angewählt und kein Text ein¬ 
gegeben wurde, nimmt der CPC zur Demonstration einfach 
den Text “+ 100 DM für 1 kByte +“ als Schriftzug an. 

Diesen Text, der zugegebenermaßen nicht ganz frei von wer¬ 
bemäßigen Hintergedanken ist. können Sie natürlich aus dem 
Listing eliminieren. Setzten Sie statt dessen Ihren “dummen 
Spruch des Tages“ als Standard-Text ein. 

Mit der Fertigstellung der Grafik ist der CPC je nach benutz¬ 
tem Modus unterschiedlich lange beschäftigt. Anschließend 
fragt er Sie, ob Sie die Grafik abspeichern wollen. Einer 
Weiterverarbeitung des computererzeugten “Button-Texts“ 
steht nichts im Wege. Dank der Verwendung aller drei Bild¬ 
schirmmodi ist diese Routine äußerst flexibel. So kann man 
sie dazu verwenden, schon einmal vorab ein grobes Titelbild 
zu erstellen, was eben eine enorme Erleichterung darstellt. 
Es empfiehlt sich übrigens, die Schriftbilder in Mode I er¬ 
stellen zu lassen, da hier die beste Qualität erreicht wird und 
vor allem die Schrift am besten zu lesen ist. Der Modus eins 
stellt eine recht gute Kombination aus der Anzahl der ver¬ 
wendbaren Zeichen und der Qualität der entstehenden Grafik 
dar. 

Friedrich Hinrichs/rs 




CPC 


Kreisschrift: Diesmal wird die CPC International nicht auf den Kopf ge- Zahlcnraten: Ganz so einfach wie es aussieht, ist es wirklich nicht. Späte- 
stellt. oder .' stens micl} tler dritten Erhöhung wird es spannend. 
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Magic Rings: Hier wird Ihre Kombinationsfähigkeit gefragt. Schließen Sie 
die Kugeln farblich zusammenpassend aneinander. 

Zahlenraten 

Für alle, die gerne ein wenig mit Zahlen herumspielen, wur¬ 
de das Programm Riddle verfaßt. 

Riddle ist ein Ratespiel, bei dem sich der Computer eine Zahl 
ausdenkl. die der Spieler erraten muß. Geben Sic auf die Fra¬ 
ge des Computers hin eine Zahl ein, gibt dieser Thncn einen 
Hinweis, ob die gesuchte Zahl größer oder kleiner ist. Haben 
Sie die Zahl nach zehn Versuchen nicht erraten, ist das Spiel 
vorbei. 

Haben Sie sie jedoch gefunden, wird das Spiel fortgesetzt. 
Der Zahlenbereich, aus dem der Computer sich eine Zahl 
aussucht, erhöht sich jedoch von zehn auf zwanzig. Bei rich¬ 
tigem Raten geht es dann immer so weiter: Der Zahlenbe¬ 
reich wird jedesmal um zehn größer. Die am Bildschirm dar¬ 
gestellten Punkte errechnen sich aus der Zahl der noch übri¬ 
gen Versuche multipiziert mit zehn. 

Ralf Möst/rs 


Magic Rings 

Dieses Spielprogramm simuliert das gleichnamige Spiel¬ 
zeug, bei welchem es darauf ankommt, durch geschicktes 
Drehen zweier mit Kugeln besetzter Ringe alle Kugeln einer 
Farbe zusammenzusetzen. Wen dies an Rubiks “Zauberwür¬ 
fel'* erinnert, der liegt im Prinzip richtig, aber die “Magic 
Rings“ haben doch auch ihren eigenen Reiz. 

Am Anfang erzeugt das Programm den richtigen Stand der 
Ringe (alle Kugeln sind in den richtigen Positionen). Dann 
vermischt es das Ganze um fünfzig Züge. Möchte man sich 
den richtigen Stand anschauen, sollte man durch Entfernen 
der Zeile 14 den Mischvorgang einfach weglasssen. Es wer¬ 
den nun die richtigen Positionen der Kugeln angezeigt. 

Sollten Sie es einmal geschafft haben, die Kugeln richtig zu 
setzen, so seien Sie bitte nicht sauer, weil das Programm dies 
nicht anzeigt. Um die 1-kBytc-Grenze nicht zu überschrei¬ 
ten, mußte darauf verzichtet werden. 

Aber man kann ja selber - wie es in der 1-kByte-Rubrik ei¬ 
gentlich üblich ist — eine Siegerehrungs-Routine, die zum 
Beispiel ein Liedlein trällert, einbinden. 

Petr Potuznik/rs 


Schiffe versenken: Das altbekannte Spiel in nur einem kByte. 


Schiffe versenken 

Wer kennt es nicht, dieses Spiel, bei dem es darum geht, auf 
einem vorgegebenen Feld die Schiffe des Gegners ausfindig 
zu machen und zu vernichten? Generationen von Schülern 
haben sich damit langweilige Lateinstunden vertrieben. Das 
klassische Strategie-Training, gespielt auf vier Karo-Papier¬ 
chen (je zwei für jeden, davon immer eins für die eigenen und 
eins für die gegnerischen Operationen) ist auch als das 
“Schachspiel des kleinen Mannes“ bekannt geworden. 

Diese 1-kByte-CPC-Version allerdings macht die Sache 
noch etwas schwieriger als gewöhnlich. Hier gibt es keine 
“Dreier", “Zweier“ oder “Fünfer“, sondern nur zwölf 
Schiffe, die aus je einem einzigen Element bestehen. 

Also machen Sie sich daran, die Flotte Ihres Gegners zu ver¬ 
nichten. Übrigens: Ihr Gegner ist der Computer, der Ihnen 
sicherlich nichts schenkt. Tun Sie das also auch nicht, son¬ 
dern zeigen Sie dem Ding, was eine Harke ist! 

Petr Potuznik/rs 


Mini-Vokabelpauker 

Aller Anfang ist schwer. Gerade bei der Vokabellernerei 
kann man sich oft nur schwer aufraffen, sich doch einmal 
hinzusetzen und anzufangen. Wenn nun aber die Arbeit am 
Computer verrichtet werden kann, wird die Motivation si¬ 
cherlich gleich viel höher sein. Nun - ohne Vokabeltrainer 
geht es nicht, und diese Programme sind in den meisten Fäl¬ 
len ellenlang. Dieser nicht. 

Haben Sie das Programm VOKABEL.BAS eingegeben, 
können Sie gleich den ersten Menüpunkt anwählen und mit 
dem Eingeben der Vokabeln beginnen. Bevor Sie jetzt den 
zweiten Menüpunkt (Abfragen) wählen, speichern Sie mit¬ 
tels “4“ zuerst einmal die Vokabeln ab. Nun können Sie sich 
Vokabel für Vokabel abfragen lassen. Beim nächsten Start 
sollten Sie jedoch nicht vergessen, die bisher eingegebenen 
Daten einzuladen, sonst werden diese bei erneutem Abspei¬ 
chern überschrieben und sind dann verloren. 

Holger Heyer/rs 
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10 'BSCREEN.BAS (lkb) ^ c __ 

11 DATA A000,21,00,cO,06,dc,ed,5f,e6,7f,85 

,6f,30,15,24,20,12,fc47 , 

12 DATA a010,7c,f6,c0,67,10,ef,21,00,40,11 
,00,cO.Ol,00.40,ed,a63b 

13 DATA a020,b0,c9,7c,e6,7f,57,5d,la,77,18 
,da,00,00,00,00,00,82a9 

14 DATA *Ende* 

15 adr=&A000:zeile=100 

16 MEMORY adr-1 , 

17 READ d$ 

18 IF d$="*Ende*" THEN 31 

19 pr=0 

20 FOR i=l TO 16 

21 READ a$:a=VAL("&"+a$) 

22 POKE adr,a:adr=adr+l 

23 pr=pr*2:IF pr>65535 THEN pr=pr-65535 

24 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+6553 
6 

? NFXT i 

26 READ pr$:pr 2 =VAL("&"+pr$):IF pr2<0 THEN 
pr2=pr2+65536 

27 IF pr<>pr2 THEN 30 

28 zeile=zeile+10 

29 GOTO 17 . - 

30 PRINT"Pruef sununenf ehler in Zeile" ;zeile 

. gipop 

31 'SAVE"BSCreen.bin",b,&A000,&2B:END 

32 CALL &A000 


[1249] 

[3205] 

[2954] 

[2354] 

[502 ] 

[1435] 

[160] 

[295] 

[907 ] 

[117] 

[317] 

[883] 

[717] 

[2485] 

[1890] 

[375] 

[2610] 

[847] 
[568] 
[397 ] 
[4530] 

[3184] 

[637] 


11 INK E o!ö^iNK S l ( ,2 6^BORDER 0:MODE 1:DEG:SY 
MBOL AFTER 32'.SYMBOL 96.102,0,102,102,102, 
102,62,0:a$="+ 100 DM f'r 1 kByte +" 

12 INPUT"MODUS ",m:CLS:PRINT"GEBEN SIE DIE 
SCHRIFTZEICHEN EIN,DIE IN DEN KREIS GESET 

r/rn mprdfn sollen ( max . ; 2 A m* 11 ? J 

":INPUT" " ,zeich$: IF zeich$ = , " , AND m=l THE 

13 MODE m:st=0. 75 / 2 A m:LOCATE 1,25:PRINT ze 

14 h FOR a=l TO 360 STEP st:PLOT 320+85*SIN( 
a),200+85*COS(a):PLOT 320 + 145 *SIN(a),200+1 

15*FOR ( x=Ö N TO T 360 STEP st:FOR y=0 TO 16 ST 
FP st 

16 IF TEST(X,y) THEN PLOT 320+(y*3+90)*SIN 
(X) ,200+(y*3+90)*COS(x) 

foCATE'1,24:INPUT "ALS GRAPHIK ABSPEICH 
ERN L (™"^n$ilF jn$="J" OR jn$ = "j" THEN 
GOTO 20 

20 LOCATE 1,24:INPUT"NAME DER GRAPHIK 
" , nameS : LOCATE 1,24: PRINT" 

":SAVE nameS,b,49152, 

16384:RUN 


[973] 

[4606] 


[9461] 

[1827] 
[6183] 

[2349] 

[3416] 

[397] 

[5284] 


243] 
i 68151 


10 'RIDDLE.BAS (lkb) 

11 MODE 1 :p=10:f=10:v=ll 

12 WINDOW#1,15,24,9,11:WINDOW#2,14,25,14,1 
6 

13 z=INT(RND*f )+l „ vim „ 

14 FOR x=l TO 10:v=v-l:LOCATE 1,1:PRINT v 
Versuche ":LOCATE 25,1:PRINT "Punkte:";p:L 
OCATE 13,23:PRINT"Bereich 0 -";f 

15 MOVE 180,120:DRAW 180,290:MOVE 425,120: 
DRAW 425,290:MOVE 180,290:DRAW 425,290:MOV 

1 Ö^APErJ^^eÄ#^ ; J??LS#2 : PAPER#! , 3 : PEN#1 

{? ! S 8 !i45?5lü I S!SSi;p5?S;iT 1 n T i. 

er "ELSE IF zahl<z THEN LOCATE 15,15:PRINT 
#2:PRINT#2," Groesser"ELSE IF zahl=z THEN 
LOCATE 15,15:PRINT#2:PRINT#2," GEWONNEN" 
‘ X—10 

18 IF zozahl AND X=10 THEN LOCATE 12,15 :P 
RINT"G A M E O V E R":p=0:f=0:CALL &BB18: 
PRINT;INPUT"Noch einmal (]/n) ";a$:IF as T 
i" THEN GOTO 11 ELSE ENDiCLS:PRINT"Auf Wie 
dersehen !":IF z=zahl AND x<ll THEN p=p*v 
ELSE p=p:IF v=0 THEN v=ll 

19 IF z=zahl AND X<11 THEN p=p*v ELSE p=p: 
TF v=0 THEN v=ll 

20 NEXT:CALL &BB18:CLS:f=f+10:v=ll:GOTO 13 


[608] 

[990] 

[2300] 

[938] 

[8931] 


[5943] 

[5119] 

[9705] 


[12380] 


[4287] 

[2149] 


11 iSlftfljSiftl-238:r(2)=380:DEG ; BORD E [Ü!U] 

r oTFOR 1=6 TO 6:READ b:INK i,b: NEXT:SYMBO 
L 255,16,56,56,124,124,56,56,16:MODE 0 :LOC 
ATE 6,4:PRINT"<-1- -4->":LOCATE 6,23:PRIN 
T"<-2- -3->":TAG 

12 FOR i=l TO 2:FOR r=80 TO 120 STEP 40:MO [10624] 


VE r(i)+14,192+r:FOR X=10 TO 360 STEP 10:D 
RAW r*SIN(x)+rU) + 14,r* c ° s (x)+ 1 9 2 , 6 :NEXT x 
r:MOVE r(i)»99:FILL 6:NEXT i:MOVE 280,200 
: FILL 6 :GRAPHICS PAPER 6 „ 

13 FOR i=l TO 2:FOR X=0 TO 18:a(1,(x+28+10 [3812] 

*(i=2))MOD 20)=2*i-(x>9):NEXT:NEXT:a(1,7)- 

U^ifTO 50 :b=l + INT( 3.99*RND) :GOSUB 1 [3524] 
9:NEXT:' MISCHEN 

15 i=l:GOSUB 18:i=2:GOSUB 18 

16 b=VAL(INKEYS):IF b<l OR b>4 THEN 16 [ 

17 GOSUB 19:GOSUB 18:G0T0 16 .... \ 

18 FOR x=0 TO 19:GRAPHICS PEN a(l,(x+s(l)) [ 

MOD 20):MOVE 100*SIN(x*18+9)+r(i),100+COS( 
x*18+9)+200:PRINT CHRS(255);:NEXT:RETURN 

19 i=l-(b>2):s(i)=(s(i)+19+2*(b MOD 2))MOD [10057] 
20:j = (17 + s(2) ) MOD 20 : k= ( 2+s (1) )MOD^ 20 :m=( i 


1654 ] 
3342 ] 
2323] 
8354 1 


12+s(2))MOD 20:n=(7+s(1))MOD 20:IF l-l THE 
N a(2,])=a(l,k):a(2,m)=a(1,n) ELSE a(l,k)= 
a(2,j):a(l,n)=a(2,m) 

20 RETURN:DATA 0,2,6,26,11,12,1 


[2058] 


10 'SCHIFF.BAS (lkb) [1289] 

11 n=12:m=n:DIM pS(n),s(100),t(100):s(100) [9126] 
=1:FOR i=l TO 3:p$(i)=CHR$(15)+CHR$[lj:NEX 

T:MODE 1:LOCATE 7.2:PRINT p$(3);"Spieler:" 

;SPACES(14);"CPC:";p$(1) 

12 FOR 1=1 TO 2:WINDOW #1,20*1-15,40,4.25: 

PRINT #i," 0123456789":PRINT #i," ";p$(2) 

;CHR$(135);STRING$(10,131);CHR$(139):FOR ] 

=1 TO 10:PRINT #i,p$(1);CHR$(64+D);p$(2);C 
HR$(133);SPACE$(10);CHRS(138);p$(1);CHR$(6 
4+i ) 

13'NEXT:PRINT #i," ";p$(2);CHRS(141);STRIN 
G$(10,140);CHR$(142):PRINT #i,p$(l);" 012 

3456789":NEXT 

3 4 LOCATE 1,20-.PRINT p$ (2); "Position einge 
ben: [A-J,0-9]";p$(1):FOR 1=1 TO n:LOCATE 
1,22: PRINT USING "##''; i; : PRINT ".Boot:":x= 

100:WHILE s(x)=l:LOCATE 10,22:PRINT CHRS(2 
0);:GOSUB 19:x=10*b+a:WEND:s(x)=1:LOCATE 7 
+a,6+b:PRINT p$(3);CHRS(143);p$(1) 

15 LOCATE 15,2:PRINT i:a=INT(RND*99):WHILE 
t(a):a=(a+1)MOD 100:WEND:t(a)=1:LOCATE 33 
2:PRINT i:NEXT:LOCATE 1,20:PRINT CHRS(20) 

;p$(l);"Schuss an: [A-J.0-91 ?" 

16 LOCATE 27,20:PRINT CHR$(20);:GOSUB 19:] 
=10*b+a:LOCATE 27+a,6+b:IF t(j)<>l THEN PR 
INT "+" ELSE t(j)=0:m=m-l:GOSUB 20:LOCATE 
33,2:PRINT m:IF m=0 THEN 18 

17 a=lNT(RND*99.99):WHILE s(a)>1:a=(a+1 MO 
D 100:WEND:LOCATE 7+a MOD 10,6+INT(a/10):I 
F s(a)<>l THEN PRINT "+":s(a)=3:GOTO 16 EL 
SE s(a)=2:n=n-l:GOSUB 20:LOCATE 15,2:PRINT 

n:IF n>0 THEN 16 

18 LOCATE 1,20:PRINT p$(3);CHRS(20);"ENDE. 

":FOR i=l TO 100: WHILE t(i)=l:LOCATE 27+1 

MOD 10,6+INT(i/10):PRINT CHR$(143):t( 1 )=4 
:WEND:NEXT:END „ 

19 a$="":WHILE a$<"A" OR a$>"J":a$=UPPER$( 

INKEYS) : WEND: PRINT P$ ( 2 ) a S ; = b=ASC (aS 

)-65:a=0:WHILE (a=0)*(aS< >,, 0")=l OR a>9:a$ 

=INKEYS:a=VAL(a$):WEND:PRINT a;:RETURN 

20 PRINT p$(1);CHRS(206);p$(2):SOUND 1,200 
,20, , , ,15'.RETURN 


[8179] 

[4693] 

[16855] 

[7618] 

[7225] 

[10838] 

[7961 ] 

[7300] 

[3418] 


10 'VOKABEL.BAS (lkb) 

11 MODE 2:LOCATE 28,1:PRINT"VOKABELTRAINER 
" :LOCATE 28,2 :PRINT‘'=========~====" 

12 RESTORE 12:FOR a=4 TO 12 STEP 2:READa$ 

:LOCATE 29,a:PRINT a$:NEXT:DATA 1=EINGEBEN 
,2=ABFRAGEN,3=LADEN,4=SPEICHERN,5=ENDE 

13 a$=INKEY$:IF a$="" THEN 13 ELSE IF a$=" 
2" THEN LOCATE 34,18:PRINT"[TASTE]":WHILE 
INKEY$="":V=v+1:IF v>va THEN v=l 

14 IF aS="2" THEN WEND:LOCATE 34,18:PRINT 

":LOCATE 1,20:PRINT vS(v):LOCAT 
E 60,20:INPUT":",an$:IF an$<>ve$(v) THEN L 
OCATE 40,24:PRINT"Falsch":WHILE INKEYS- : 
WEND:f=f+1:GOTO 11 ELSE LOCATE 40,24:PRINT 
"RICHTIG":WHILE INKEY$="":WEND:r=r+l:GOTO 

15 IF a$="l" THEN LOCATE 1,20:va=va+l:INPU 

T"DEU1'SCH: " ,v$ (va) : LOCATE 50,20 : INPUT"ENGL 
ISCH:",ve$(va):GOTO 11 „ . 

16 IF a$="3" THEN en$="*.DAT":ÖDIR,@en$:IN 
PUT"FILENAME:",n$:OPENIN n$+".dat":va=0:WH 
ILE NOT EOF:va=va+l:INPUT#9,v$(va),ve$(va) 

i? E ?? : ^SJ H Üg°IHP«T-PXLENAME: «,nS :OPEN 

OUT nS+"-dat":WHILE anz<va:anz=anz+l:WRITE 
#9,v$(anz),veS(anz):WEND:CLOSEOUT:GOTO 11 
18 IF a$="5" THEN CLS:PRINT"Rlchtig:",r:PR 
lNT"Falsch:",f 


[803] 
[6301] 

[8943] 

[7750] 

[14305] 


[5898] 

[9724] 

[8704] 

[3463] 
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Gamers Message 

Tips und Tricks zu beliebten Spielen 

Jeder hat es schon einmal erlebt: Man ist von einem Spiel wahnsinnig begei¬ 
stert, aber man ist an einer Stelle, wo es einfach nicht weitergeht. Auch neu 
erworbene Spiele werden manchmal zum Problem, weil man einfach keinen 
Einstieg findet. Wir versuchen. Ihnen zu helfen. 


Zu Beginn gleich einige Tips zu den in 
diesem Heft vorgestellten Spielen. Los 
geht's mit Dick Tracy. An manchen 
Stellen kommt man ohne eine Schuß¬ 
waffe nicht weiter. Normale Gangster 
können mit einem Faustschlag beseitigt 


Pick Ti 9Cif 


werden (wenn man sich duckt, ist man 
sicherer). An den Schüssen aus Fen¬ 
stern kommt man vorbei, indem man 
schnell läuft und gegebenenfalls 
springt. Auf diese Weise kann man sich 
die Munition aufsparen. Die Leute, die 
Bomben aus dem Fenster werfen, müs¬ 
sen aber ebenso abgeschossen werden 
wie die bewaffneten Feinde. Um nicht 
gleich getroffen zu werden, wenn man 
weitergeht, ist es am günstigsten, nur 
sehr kurze Strecken zu gehen und dann 
stehenzubleiben. Wenn der bewaffnete 
Gegner noch am äußersten rechten 
Bildschirmrand ist. rührt er sich nicht, 
kann aber in aller Ruhe erschossen 
werden. Wenn man sich an diese Tech¬ 


nik hält, kann man relativ sicher durch 
die Stadt marschieren. 

Bei Switchblade neigt man dazu, 
schnell nach rechts zu gehen und sich 
ins Getümmel zu stürzen. Besser ist der 
Weg zu dem Gitterkäfig, der den Ein¬ 
gang zu dem unterirdischen Labyrinth 
markiert. Hier beseitigt man am besten 
gleich alle Monster, läßt sich aber dann 
nicht fallen. Statt dessen sollte man 
umdrehen, nach links weitergehen und 
auch hier den Weg säubern. Ganz links 
angekommen, findet man eine kleine 
Höhle, in der man eine Schußwaffe be¬ 
kommt. Wieder nach rechts, und im ei¬ 
gentlichen Höhlensystem angekom¬ 
men, ist man gleich bewaffnet. 

Erst einmal bewaffnen 

Wenn man fällt, liegt die Spielfigur be¬ 
nommen am Boden und hat fast keine 
Energie mehr. Geraten Sie jetzt nur 
nicht in Panik. Warten Sie, bis die Fi¬ 
gur wieder steht. Nun zerschlagen Sie 
links die Steine, und Sie erhalten wie¬ 
der Energie. Generell sollte man sich 
Zeit lassen. Alle Steine, die einen 


Sprung haben, können zerschlagen 
werden. So findet man oft Extras oder 
Wege, , die Gefahren geschickt um¬ 
gehen . 

Taucht ein Feind auf, wartet man am 
besten, ob er sich auf den Spieler zube¬ 
wegt. Wenn er das tut, einfach warten 
und ihn herankommen lassen. Dadurch 
vermeidet man, zwischen zwei Geg¬ 
nern eingeklemmt zu werden. Auch 

Twilc/bPc/e 


sonst ist Hektik tödlich. Bei den Spe¬ 
zial-Gegnern ist es besser, sich recht¬ 
zeitig zurückzuziehen und den näch¬ 
sten Schuß abzuwarten, als von diesem 
getroffen zu werden. 

In jedem Spiel den gleichen Fehler zu 
machen, ist ärgerlich. Wer sich also 
nicht merken kann, wo welche Gefah¬ 
ren und Extras warten, sollte sich eine 
Karte zeichnen oder Notizen machen. 
Sonst hat man keine Chance, und Har- 
vok (oder der Programmierer) lacht 
sich ins Fäustchen. 

Wenn sich der Norden und der Süden 
in North & South gegenüberstehen, 
hat nur derjenige eine Chance, der eine 
funktionierende Eisenbahnlinie kon¬ 
trolliert. Diese sollte also das erste und 
wichtigste Augenmerk sein. Das Zu¬ 
sammenlegen von Armeen ist nur sinn¬ 
voll, wenn die bevorstehende Schlacht 

Poti/ & To ul/ 


extrem wichtig ist. Ansonsten kommt 
man auch gut mit schwachen Truppen 
aus. Das sollte man vor allem beach¬ 
ten, wenn es nur um Landgewinn geht, 
und keine gegnerischen Einheiten auf 
dem angegriffenen Land stehen. 

In den Schlachtfeldszenen sind die Ka¬ 
nonen sehr nützlich, doch ihre Muni¬ 
tion ist begrenzt. Man muß also versu¬ 
chen, die zur Verfügung stehenden 
Schüsse möglichst effektiv zu nutzen. 
Am besten tut man dies, indem man auf 
eine Einheit zielt, die der Gegner gera¬ 
de nicht im Auge hat. 

Der Schlüssel zum Erfolg im ersten 
Teil von ßatman ist ein gutes Gedächt¬ 
nis — oder eine Karte. Ohne dies hat 
man kaum eine Chance. Sehr zu emp¬ 
fehlen ist es auch, sich sehr genau mit 
der Verwendung des Seils vertraut zu 
machen. Diese Tips werden auch im 
fünften Teil nützlich sein. 

Im zweiten Teil muß man vor allem 
herausfinden, in welchem Moment 
man das Lenkrad herumreißen muß. 
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um richtig abzubiegen. Der dritte Le¬ 
vel läßt sich durch bloßes Ausprobie¬ 
ren lösen. Wenn es in der vierten Run¬ 
de darum gehl, die Ballons abzuschnei¬ 
den, ist es gut. wann immer möglich an 
den rechten Bildschirmrand zu fliegen. 
Wenn man dann von oben nach unten 
(oder umgekehrt) fliegen muß, kann 


Baltridt) 


man Zeit gewinnen, wenn man gleich¬ 
zeitig schräg nach hinten drückt. 

Die Anleitung Vendettas enthält aller¬ 
lei Hinweise. Doch eines kann sie dem 
Spieler nicht abnehmen: herumzupro¬ 
bieren. an welche Ecke des Objekts die 
Spielfigur plaziert werden muß, damit 
die gewünschte Aktion ausgeführt wer¬ 
den kann. Außerdem: Wenn fünf 
Schreibtische leer sind, heißt das noch 
lange nicht, daß der sechste auch leer 
ist. Noch ein Tip: Das Spiel ist nicht 
nur etwas für Autofahrer, sondern auch 
etwas für Computerfreunde. Denken 
Sie daran! 

Bei dem Rollenspiel-Klassiker The 
Bard’s Tale bereitet vor allem der An¬ 
fang Schwierigkeiten. Zuerst ist da ein¬ 
mal die Auswahl der Charaktere. Weil 
sie im weiteren Spielverlauf extrem 
wichtig werden, sollte man mindestens 
zwei magisch talentierte Charaktere 
mitnehmen. Auch ein Barde ist nötig. 
Anfangs mag man zwar glauben, ohne 
ihn auskommen zu können, aber im 


Bat cf's Tale 


weiteren Spielverlauf wird man mit ei¬ 
nem Problem konfrontiert werden, das 
man ohne einen Barden nicht lösen 
kann. Verzichten kann man hingegen 
auf einen Dieb. Das Entschärfen der 
Fallen wird dann mit einem Trap- 
Zap-Spruch vorgenommen. 

Man sollte seine Kraft 
nie überschätzen 

Ist man etwas tiefer ins Spiel vorge¬ 
drungen, sind Gruppenmitglieder, die 
sich aufs Zuschlägen spezialisiert ha¬ 
ben, nicht mehr besonders nützlich. 
Wer allerdings anfangs keine davon 
hat, wird erst gar nicht so weit kom¬ 
men ... Noch eine Anmerkung zu dem 
Barden der vorbereiteten Party: Er hat 
ein Fi re Horn, ein äußerst nützliches 
Gerät, das es nirgends zu kaufen gibt. 
Man sollte es aber nur sparsam ver¬ 
wenden, da es nicht ewig hält. 


Da man zu Beginn noch schwach ist, 
sollte man sich nicht zu weit von der 
Adventurer’s Guild entfernen und nur 
gegen kleine Gruppen schwacher Geg¬ 
ner kämpfen. Ist die angreifende Mon¬ 
stergruppe zu stark, sollte man versu¬ 
chen davonzulaufen. Weil dies nicht 
immer funktioniert, ist es ratsam, nach 
jedem gewonnenen Kampf das Spiel zu 
speichern. Als nächstes sollte man dar¬ 
an gehen, sich eine Orientierung in der 
Stadt zu verschaffen. Weil der Compu¬ 
ter - anders als in der Anleitung ange¬ 
geben — die Namen der Straßen nicht 
anzeigt, ist dies gar nicht so einfach. Hat 
man genügend Erfahrung gesammelt, 
kann man sich in die Dungeons wagen, 
wo mehr Gefahren, aber auch mehr 
Schätze und mehr Ruhm warten ... 
Weiter geht’s mit einem anderen Rol¬ 
lenspiel. nämlich BLoodwych. Die An¬ 
leitung ist zwar dank ihrer Übersetzung 
für einige Heiterkeit gut, doch ver¬ 
schweigt sie leider einen wichtigen 
Punkt: Die Spielstände müssen auf der 



Originaldiskette abgespeichert wer¬ 
den. Benutzt man eine andere Diskette, 
sind die Effekte zwar interessant, er¬ 
leichtern das Spiel aber nicht gerade. 
Wer mißtrauisch ist, sollte vielleicht 
vorher eine Sicherheitskopie der Origi¬ 
naldiskette anfertigen. 

Obwohl der Anfang nicht so schwierig 
ist wie bei The Bard’s Tale , sollte man 
doch auch hier häufig den Spielstand 
speichern und unbedingt sofort damit 


beginnen, eine Karte zu zeichnen! 
Wichtig ist zunächst, sich an das an¬ 
fangs etwas kompliziert erscheinende 
Menüsystem zu gewöhnen. Die ersten 
Gegner werden dann nicht lange auf 
sich warten lassen. Wenn man darauf 
achtet, nicht zwischen zwei Monster¬ 
gruppen zu geraten, sollten diese je¬ 
doch kein allzu großes Problem dar¬ 
stellen. Die Farbe der Türen hat übri¬ 
gens etwas mit der Farbe des Schlüssels 
zu tun, der sie öffnet. Und einige Wän¬ 
de verschwinden auf Knopfdruck ... 


Wer bei Sim City Schwierigkeiten hat, 
mit seinem Geld auszukommen, kann 



es wie unsere Politiker machen und die 
Bevölkerung an der Nase herumfüh¬ 
ren. Die Steuern werden im Dezember 
auf zwanzig Prozent erhöht und fließen 
dann in die Stadtkasse. Bevor jedoch 
die Einwohner reagieren und auswan¬ 
dern können, wird der Steuersatz im 
Januar wieder auf null Prozent gesetzt, 
um neue Siedler anzulocken. Bis sich 
dann dasselbe im Dezember wieder¬ 
holt. 

Vom Spiel zur Wirklichkeit 

The Sentinel ist ein recht außerge¬ 
wöhnliches Spiel. Das äußert sich lei¬ 
der auch darin, daß man nach der Lek¬ 
türe der Anleitung etw'a genauso schlau 
ist wie zuvor. Zwar steht alles drin. 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mit ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung machtauch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß: 

• Einfügen, Fließtext, Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf DIN-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten • Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einstellmöglichkeit in 
Tabellenform 

ConText CPC 

Hervorragend in Preis und Leistung dm 59,- * 


T urbo-D AT A-CPC 

Volldampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mit Turbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC: 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Bildschirmansichten zu 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 


Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son- und Seikosha-Drucker» Anpassung auch an gedrehte 
Bitbild-Bytes, z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- * 


CPC Special Offer 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprite-Animation, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Offer 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung mit hohem Bedienungskomfort und integriertem 
Diskettenmanager. Verwaltung, Archivierung, Katalogisierung Ihrer Disketten und Aus¬ 
druck der Daten - mit Disksort-Star kein Problem. 


DESIGNER-STAR 

Grafikprogramm zum komfortablen Erstellen von Bildschirmgrafikea Zur Bedienung ist 
ein Joystick oder eine Maus nicht notwendig. Auf Tastendruck werden Sie mit Hilfsmenüs 
durch das Programm geführt. 


CREATOR-STAR 

Erstellen Sie eigene Trickfilme auf Ihrem CPC - mit einem Kulissen- und Sprite-Designer 
sowie beliebigen Laufschriften. In einer eigenen Programmiersprache mit Editor und 
Compiler können Sprites verbunden und Kulissen übereinandergelegt werden. 

STAR-MON 

Professionelle CPC-Programmierung mit Assembler, Disassembler und Monitor. Das 
System besitzt einen eigenen Diskettenmonitor und Editor, eine Trace-Funktion, kann 
Breakpoints setzen und Bankswitching vornehmen, 

CPC Special Offer 2 

Für CPC-Profis dm 59,- 

















CPC-Basic 


Mit dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 


FABACOM - 

schnell durch Compilierung 


DM 49, 


Schnelle Programme durch FABACOM: 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm¬ 
teilen für Nachladeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 

• Kompatibel zur Vortex-Peripherie inklusive 
der RAM-Disk 

• Alle CPM-Dienstprogramme können wei¬ 
terhin genutzt werden 

• Ausführliche deutsche Bedienungsanlei¬ 
tung und Beispielprogramme 


FAst BA 





BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 




















Das Software-Experiment 

Spielend den CPC beherrschen lernen 


Nehmen Sie teil am Abenteuer "Computer"! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst¬ 
lichen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 

Das umfangreiche, 180seitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie selbst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 


Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bildern. 

Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie, was für neue, noch nie dagewesene Formen sich 
ergeben. 

Mit roher 
Rechengewalt 

Mit dem "Brute- 
Force"-A!gorith- 
mus darf der 
CPC so richtig 
loslegen und 
spielt mit roher 
Rechengewalt in 
dem afrikani¬ 
schen Strategie¬ 
spiel "Kalaha" al¬ 
le Gegner an die 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 
dem schlagen? 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 


Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz": 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 

Das Ökologie- 
Experiment 

Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 

Wordketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 

Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 


Das Software-Experiment 
Siebzehn verschiedene, lauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur dm 39,- 



































































CPC-Spiele 


Zu unglaublichen Preisen! 


Faszination in 3D 


Zwei Super-Aktion-Spiele inklusive 
3D-Brille 


DM 29,-* 


StarTest 

Aktion-Adventure für alle CPCs DM 19,-* 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 
Terranaut I - Science-Fiction 
Fruits - Geschicklichkeit 

Terranaut II - Textadventure dm 29,-* 

Special Öfters III 

Neun interessante Spiele für alle CPCs 

2 Disketten, dm 39,-* 


Know CPC 


Interessantes Frage- und Antwortspiel für die 
ganze Familie DM 29,-* 


3D-Light Cycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film! Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt in 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Effekte zusammen mit einem 
professionellen Sound lassen 
Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit 
man live gesehen haben. 


Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-Darste!lung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnugen. 

Für alleCPC 464,664,6128 mit Farbmonitor. Das Spiel 30-Light Cycle 
kann in 2D-Darstellung auch auf Grünmonitor gespielt worden 


DM 39,-* 


Game Box 3 

Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 


Alphajet - Weltraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 


Telefomania - 

Interessantes Science- 
Fiction-Spiel mit völlig 
neuer Spielidee 


Kampf den Insekten - 

Erlebnisreiches 
Geschicklichkeitsspiel 
mit Überraschungen 


Funbouncer- schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktions-Editor 





























Wie wär s denn damit: _ 

The Playcr’s Dream Vol. 3 

Eine Sammlung besonders attrakliver Spiele, pro¬ 
fessionell programmiert und mit detailreicher Gra¬ 
fik ausgestattet. Best.-Nr. 194, DM 19,-* 

Ritter Kunibert. Eines «Kr witzigsten Rcnktionsspiele für den Cif, 
tciiipogcladcii und mit (telnilrcichcr Faibgrafik Verhelfen Sie Kuni¬ 
bert dazu, Sprung tiir Sprung die Burg seines Erzfeinds zu stürmen. 
Vorsicht: dieses Spiel macht süchtig! 

Panik im Labyrinth: Etwas für Freunde gepflegt« Hektik, Mitten 
meinem Ricsenlubyiimh mit lieiutn/appelndcn und umlicrwischen- 
den Encrgicfressem erwacht Ihre Spiclfigtir, Und jetzt gilt cs, cm 


knappes nutzend Schlösset ZU linden Das Spiel bestiehl durch 
hin /.schnelle Utldwechsel und seidenweiche Joystick-Steuerung 
Bulldozer: Eine pfiffige Mischung aus "Pnc-Mnii” und ”SOko-Han". 
mil Ijchcvoll gestalicter Character-Oraftk. 

Fruggit "Tierisches" Jnmpii Run Spiel nnl Hihi zumal Scrolling 
Für I oder 2 Spieler simultan 

Sofl-Rall: Ein Rippet mit -zig verschiedenen, zockigen Cierätisclien 
— für alle, denen Arzt oder Eliefiuu den Besuch der Kneipe an der 
Ecke verboten haben 

Dow Jones: Ein grafisch aulgcpcpptcs Böraeiispiol im EDV-Milieu 
Kaufen Sic Atari, IBM oder Amslrad—inaelten Sie Millionen oder 
verlieren Sie Haus und Hol. 


Persönliehkcitstcsl: Optisch gelungene “Selbslanalysc" Ihr den 
kleinen Psychologen. Nicht ganz ernstgemeint- iiiuelil aber Spott. 

Skat Eines der raten Skalprog ramme. Ivltlen der zweite und dritte 
Mann für eine zünftige Partie'; Dieses Programm hilft aus. Aufwen¬ 
dige Farbgrafik. 

Memoiren Die schunsle "Memoiy" Version, die es je auf einem 
8. Bil Computer gegeben hat. Sie spielen simultan gegen deti Com- 
puici oder einen mensclilicticn Gegner und können das gegnerische 
Spiel durch Ihre eigenen Spid/ügc manipulieren. Gutes Gedächtnis 
Und Reaktion werden so gleichermaßen trainiert. 

Q-Bert 2 Neue Version des liebenswerten klassischen Pcntpektiv- 
HUpfspiels. Viel Feind, viel Ehr 


The Player’s Dream Vol. 6 

Ein Paket besonders anspruchsvoller Spielpro- 
grammc, die nie langweilig werden - mal Holl und 
kernig, mal lüflelintcnsiv. Besl.-Nr. 195. DM 19,-* 

Soko-Ilan Gunstruclor: Eine Herausforderung litt flirr kleinen 
grauen Zellen. Finden Sie die richtige Vorgehensweise für iedes 
Spiellevel Mit Hildsehim) Editor zum Gestalten uipl. Ahspeichcrn 
eigener Level». Fünf l.cvels werden mitgelielert Ächtung: absolutes 
Suchtspicl. tler Effekt ist "Lemmings" ühnlifii! 

“f 

Air l'ratfiW-'imlrol: Koordinieren Sie den Luftverkehr zwischen 
acht europäischen Flughäfen! \fcrhindcrn Sie Zusammenstöße, in¬ 
dem Sic den Piloten die richtigen Informal innen gehen. Aufregende 
Simulation im Grafikmode 

Trouble in Space Strategie und Tempo in einem faszinierenden 
Spiel vereint Hier wird nicht geballen, sondern mil kühlem Kopl 


eine Bahn für einen Space-Scuotcr gebaut. Sehr lullte Spielmotiv»- 
lioii.dctallrciehe Grafik. Mil Level-Edilor. 

Super Riihik's (!ubc: Dei beriihmte "Zauberwörter aut dem CPC- 
Bildselmm. Mit Spiegeln für die vcrdceklen Wiirfclsciien. Fili Freun¬ 
de verzwickter Kombination. 

Alien Altuck. Auch das klassische Ballet spiel tiir die Arbeitspause 
darf nicht fehlen Diese ''Space liivaders" Version überzeugt durch 
ihre liebevoll gestaltete Grafik 

Oik: Temporeiches. "Pocman"-artiges Acinuispicl mit niedlich tmi- 
mierier, butterweicher Sprite-Gmlik und vielen, vielen Monstern 

Dallas Oil Management-Gesellschaftsspiel für bis zu 4 Personen. 
Reizvoll durch ineinander verschachtelte Transaktionen. 

Reparatur Flottes Taktik-und Act km Spiel mil farbiger Character- 
Grafik Beherrschen Sie das .Schlachtfeld'.’ 

Gardner-Spiel Koinhiiiuikin ist angesagt hei diesem Spiel mil 
Vektoren. Diagonale, senk oder waagerechte Reihen von Steinen 
werden aul einem Spielfeld manipuliert Etwas für Tüftler. 


Puzzle — 
niake it! 

Neun verschiedene 
Sphiebe-Puzzlcs 
zum Entspannen: 
von den "Ghosl- 
busters” über Co¬ 
nan und Obel ix bis 
hin zum Madonna- 
Porträt. 

255 Schwierigkeits-Slufcn. Testen Sic Ihre Vor¬ 
stellungskraft! Best.-Nr. 196. DM 15,-* 



Codex Vol. 5 

Ein Anwenderpaket für kühle Rechner und Freunde 
des geschriebenen Wortes. Best.-Nr. 265. DM 19,-* 

Textmaker: Ein einfaches l'exlvenubcitlingsprogranmi zum Brielc- 
schreiben. Hriclkupf gesondert erfaßbar. Blocksalz. Datei- Manager, 
einstellbarer Tabulator. ZeilenbrcilC bis 72 Zeichen. Deutsche 
Schreibmaschinen Tastaturbclcgung mil DIN-Zeit'llCnsalz. Basic - 
Programmierer können die Routinen für deutsche Umlaute und ß 
auskoppeln lind in ihre eigenen Programme cmbmden. 

Papcrmskcr. Ein Mini-DTP-Progiamin tiir die Schüler oder Ver- 
cinszcitung. Mehrspaltiger Text. Schlagzeilen und ZoiUmgskopf las 
sen Sieh frei auf tler Seite plazieren. Einfache Geometriegrafik für 
Zeilungskopf. Köpfe. Schlagzeilen und Artikel gctrcntil speicltorbar. 
Ausgabe für Epson-kompatiblc Drucker. Mit einer Demo-Zcitimg als 
Beispiel, 


Typograph Mit diesem Programm 
Grafik schrillen auf dem Bildscliiim 
linc läßt sich die Schriftknnst auch 
zu Papier Itnngen. Freies Skaliei-cn 
und Positionieren der Sclnifuci 
eben. Fm kompletter Font im "We 
stern-Look“ wird mitgelicferl - 
damit Sic gleich loslegen können 

Multilniincr: Ein komfortables 
Lern , Ubungs- und Test-Pro¬ 
gramm für beliebige Mulliple- 
Choicc-Aufgabeii 
beispielsweise Führe rxchcinlragen. 
Pro fuitgsa n fgaben, Check I isten 

oiler Psyclio Tests. Krgehnispioto- 
kolle speicherbar, Zehralimcnöbcr- 
priilung eingebaut. 


entwerfen und verarbeiten Sie 
Per cingebuutei Hardcopyrou- 


IHE ESCHHEGE IBIES 


frei timt gnsräumlen 

HUND MIT ACHT BEINEN 


lluehomat Verwaltung aller privaten Finanzen aul knufmänniseftei 
Basis mit allem Komfort. Komplette Übersieht über Aktiva und 
Passiva. KomenraliitÄit mit insgesamt 
28 Konten .null Wertpapiere und 
Optionen, Steuern, Gebühren, Ab- 
selireiluingen und /.insen weiden ei 
faßt. Jahresabschluß. Druckerausgahe 
Ihr Ge samt- und Vermögens« horsiclu. 


__ _ O" 

Smiiterausgjib* M.V.H1 

\EXES DTP-PROGRM'l 


FRFIBIER FA11PE1.ZF. FMI.ASTET HliMSTAOE 


Hauslinltshilnnz: Erlassen Sie Ihre 
laufenden Ausgaben und sielten Sic 
lest, in welchen Bereichen die Kosten- 
Inwinc am schlimmsten wültu. f.'het- 
siellllichc lahelleiularstellutlg. 
blitzschneller Überblick Uhei die fl 
nanziellc Situation an laufenden Mu¬ 
nal. Kinderleichte Memlsteucrting, 
Drue heraus L'aho. 


Codex Vol. 6 

Eine besonders anspruchsvolle Sammlung hilfrei¬ 
cher Anwendungen für verschiedene Lebenslagen, 

Besl.-Nr. 266, DM 19,-* 

Olsksttensyslcm: Die langgcsuchre 
"cicrlegende Wollmilchsau". Vondcn 
Standard-Datei Operationen (Forma¬ 
tieren. Kopieren, Directory-Manipu¬ 
lationen) bis hin zum Diskclten- 
optimicrer, File-Rcakliviercr und Rc 
lokutor isl aUesciiigchaut. Eine Werk 
hank für die tägliche Arbeit mil 
Disketten und Dateien. Ein eigenes 
ßenulzcrmenU Hißt sich einklinken — 
eine Oveiiay-Datei mit entsprechen¬ 
der Schnittstelle ist dabei. 


Platine-Muster: Ein sehr aufwendi¬ 
ges Programm zur Gestaltung von 
Leitcrp lullen. Joystick-Bedicmmg 
mit Icons, Fadcnkieuzcursor. Masken 
flii IC-Fassungen auf Abmf. Ile- 
schriftuiig, Kopieren von Bereichen, 
ahsch all bares Hillsraster. Diuckaus- 
gabe in zwei Größen 


Terminkalender: Speichen für jeden Tag einen Textbildschirm, 
Auch flii Tagebuch oder Besuchsprotokolte geeignet MenUgesleu- 
ert. mit deulschcn Umlauten. Dmckeruusgabc. zahlteichen Editor 
fMiktionen, llilfehildschirm. 

Magie Synthesizer: Hüll 
kurven und Tonschwebun- 
gen erzeugen für ausgcfeilte 
Sounds mit dem Soundclüp 
des CPC. Grafische Durslel 
hing der I lüllkutvcn. Schi itt- 
I'ür-Schritl-Editiercn durch 
numerische Eingabe mög 


PrograMBsaHMlung 

Der Datengarten 


Nit der zusätzlichen Portion 

3-Zoll-Diskette [euoijetuefui 

3 d 3 

ajtmuos 

uoa 

s -eci 


t 

-nwa 3?a 



. 


M 


E 


lieh, Erzeugt Basic-Codc fürdie Verwendung der Sounds m eigenen 
Programmen. Demo-Melodie zum Auslesten eingebaut. 

Fußball-Verwaltung: Von dei Bundesliga bis zur zweiten Krcisklas- 
se —dieses sehr umfangreiche Programm verwaltet alle Fußballer 
gcbnissc komfortabel und erleichten Tippern die Übersicht. Eres- 
Eingabe untl Abspqtehcm von Ligen und SpielpUtucn, Das Pro¬ 
gramm übertrügt die einzelnen Paarungen in die Ergchnlsctngatu. 
Die Tabellen lassen sich ttnzeigen und auf dem Drucker ausgeben 
Um fang reiche statistische Auswertung 

Lotto-Commander Erlaubt tlie Aufstellung und Gcwinnkimtiulte 
jeweils eines Service-Scheins der Spiele "b aus -IV und "Spiel 77" 
für mehrere Wochen (besonders preisgünstige Tippmcthodc). 


Diskelteiilnillen-IJrticker Druckt hthaltsver- 
zeichiiis. Aichivnummci und Dalum aul I Edler, 
für 3 Zoll-Disketten. Für Epson-kompatible 
Drucker. 


Aufkleber-Editor: Zur Herstellung professio¬ 
neller. kkbefertiger Elikcileu tiir t-Zoll-Dis- 
ketten. Sehr aufwendigautgemaclii: "Wlial you 
sec Is wtial you gcl" l ell-. Kursiv-. Mager 
schritt. doppelt hohe, breite, unterstrichene und 
kopfstehende .Schrift. Gleichzeitige Verwen¬ 
dung von .7 Zeichensülzen möglich. Mit eilige 
iKimcm Zeichensalz Editor Für Epson- 
konipatihlc Drucker. 














































































DAS 



vielen Vorteilen 

Preisvorteil 

Informations¬ 

vorsprung 

Zustellkomfort 


^bo-Ord e r Zeitsch rift 

Hiermit bestelle ich »CPC International« für mindestens 

□ 12 Ausgaben L 6 Ausgaben 

Preise: BRD 12 Ausgaben 66,-DM 

. , 6 Ausgaben 33, - DM 

Auslandspreise; Europa 12 Ausgaben 96,-DM 

, 6 Ausgaben 48|- DM 

Außereuropäisches Ausland 12 Ausgaben 120,- DM 
6 Ausgaben 60. - DM 

Lieferung orfolgt ab der nächsterreichbaren Ausgabe. 


■ 


r DATABOX 


Hiermit bestelle ich die 1 CPC-Databox I Joyce-Databo 
für mindestens n 12 Ausgaben 6 Ausgaben 

als □ Cassette L Diskette 3“ 

Bezugspreise Inland (einschl. Porlo/Verpackung) 

Cass. 6 Ausgaben 90, - DM, 12 Ausgaben 180. - DM 
Disk 3" 6 Ausgaben 150, - DM, 12 Ausgaben 300, - DM 
Bezugspreise Ausland (eirigekl. Werte außereuropäisch) 
Cass 6 Ausg 100,- (120,-)DM, 12 Ausg.200,- (240,-)DN 
Disk 3"6 Ausg 160.- (180,-) DM, 12 Ausg 320,- (360. -)DN 
Lieferung erfolgt ab der nächsterreichbaren Ausgabe 


Lieferanschrift Rechner-Typ 

□ Geschäft f I Privat □ CPC Z Joyce 


Vorname, Name 


ü Bequem und bargeldlos durch Bankabbuchung 


Bankleitzahl 


■ 


JJJ_l 


LLj, I I I I I 1 1 

Firma (nur wenn Lieferadresse) 

i m : i i i m i 

Straße, Nr./Postfach 



PLZ/Ort 


1 ! I 11 



srnauc AmiMfl 


Dieses Abonnement verlängert sich automatisch um 6 b?w. 12 Ausgaben 
wenn es nicht sechs Wochen vor Ablaut schriftlich gekündigt wird. 


1 J 


| | | | | | | | | | | || | 

Konto-Nr./-lnhaber 



Geldinstitut 



Gegen Rechnung - zahlbar innerhalb zwei 
Wochen nach Erhalt (Bitte keine Vorauszahlung 
leisten — Rechnung abwarten.) 


Dalum 


1. Unterschritt (ta Mm<lef|i'irigtn des Qeseiilehsn Wdrstsis! 


Bitte unbedingt auf der Vorderseite 
eine zweite Unterschrift leisten! 



über 


CPC und PCW Joyce 
sammeln Sie mit 

• Einzelheften 

• Sonderheften 

• DATABOX 



Amstrad 


INTERNATIONAL 



für 


CPC und PCW Joyce 

erwerben Sie im 

Bestellservice 

preisgünstig 

und 

schnell 


’Rlhofl r.pr not-' ...... n- . ... . ___ 


Einzelheft 

Ausgabe 

6,- DM/Stck. 

CPC 
Kassette 
14,- DM/Stck. 

1 CPC 

3"-Diskette 
24,- DM/Stck. 

, Joyce 

3"-Diskette 
24,- DM/Stck. 


t'87 bis 1t'88 

Bitte elnlragenl 




□ 


- 

P 

P 

L 

1'B9 

- 

P 

□ 

U 

2’89 

- 

C 

D 

U 

3'89 

- 

P 

P 

L 

4’89 

- 

□ 

J 

ü 

5'89 

- 

L 

□ 

l 

6'89 

C 

P 

C 

U 

7'89 

"1 

□ 

□ 

L 

8'89 

n 

□ 

□ 

U 

9'89 

r 

IZ 

1 

U 

10’89 

n 

P 

□ 

□ 

11 '89 

□ 

□ 

J 

U 

I2'89 

n 

L 

IJ 

J 

t '90 

□ 

□ 

1 

L' 

2'90 

□ 

ü 

□ 

Ü 

3'90 

□ 

□ 

□ 

J_ 

4'90 

c 

L 

L 

Ü 

5'90 

□ 

■J 

O 

L 

6/7'90 

- 

ü 

1 

U 

8/9'90 

- 

L 

□ 

u 

10/11'90 

p 

ü 

L 

L 

12/1 ‘90/91 

p 

D 

D 

-1 

2/3'9t 

p 

□ 


U 

6/7'91 

p 

ü 

□ 

IJ 

12/191/92 

y 

Ü 

□ 



1 




CPC-Sonderheft 
DM 14,- 


L 309 Nr, 3/86 


J 311 Nr. 5/87 


□ 312 Nr. 6/88 


□ 313 Nr. 7/88 


□ 3(36 Nr. 8/89 


DATABOX 

3-Zoll-Diskette 


J 319 DM 29, - 


L 334 DM 38,- 


□ 340 DM38.- 


□ 3135 DM 38,- 


C 3142 DM 38. - 


Kombipack 
Sonderheft + DATABOX 
3-Zoll-Diskette DM 29.- 


LJ 3044 


□ 3045 


f ,3046 


i 3047 


L 3048 


+ Porto/Verpackung 

(Inland 4,- DM, Ausland 6, - DM) 


J Best.-Nr. 3043 CPC-Sonderheft-Kraftpake 

5 Stck. CPC-Sonderhefte 3, 5, 6. 7. 8 

DM 35,- 


I Best.-Nr. 3042 Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 + 1/89 

DM 39, 


DM Gesamtbetrag: 


DM 


3“-Diskette Kassette 


U 

□ 

□ 

□ 

□ 

□ 

ü 


207 

262 

202 

267 

268 
214 
205 


□ 30700 


□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 


213 

209 

104 

196 

1011 

107 

1369 

1012 

106 

211 


C 30701 


DM 3"-Diskette Joyce-Software 


ConText CPC, Textverarbeitung 59 , - 
Der Finanz-Fachmann 49 , _ 

CopyShop, Hardcopy-Programm 49 , - 


+ Porto/Verpackung 

(Inland 4, - DM, Ausland 6, - DM) 


Lernen mit Spaß Nr. 1 
Lernen mit Spaß Nr. 2 
Turbo Data CPC 
Special Öfter 2 
DMV-Überraschungspaket 
für CPC 

DMV-Überraschungspaket 
für CPC 

Software-Experiment 
FaBaCom, Basic-Compiler 
Startest 

Puzzle - make it 
Fantastic Four, Spielesammlung 29, - 
Special Öfter 3, Spielesammlung39, - 

39,- 
29,- 
29,- 
49,- 


24,95 

24,95 

69,- 

59,- 

49,- 

29,- 

39,- 

49,- 

19,- 

15,- 


Faszination 3D 
Game-Box III 
Know CPC 

Fraktal Generator 3D CPC 


215 Volume 1, Charakter-Designer 49 , _ 

216 Volume 2, Dateiverwaltung 49,- 

217 Volume 3, GSXplot 59 I 

219 Volume 4, Bild-Editor 49,- 

220 Volume 5, Datenbank 69, - 

221 Volume 6 , Tabellenkalkulation 59 ,- 

222 Volume 7 , Grafische Benutzeroberfläche 69 , - 

194 The Player’s Dream Vol. 3 19 , - 

195 The Player’s Dream Vol. 6 19 - 

265 Codex Vol. 5 19 ' _ 

266 Codex Vol. 6 19 L 

262 CPC-Highlights I 49 _ 

263 CPC-Highllghts II 49 L 

Anwender-Spiele 

193 Joyce Highlights I 29 ,- 

264 Joyce Highlights II 29, - 

Joyce-Sonderheft-Pakete 

r 1 3050 Sonderheft 2 + DATABOX, 2 Disketten 3“ 29, - 

□ 3051 Sonderheft 3 + DATABOX, 2 Disketten 3 “ 29 - 

□ 3052 Sonderheft 4 + DATABOX, 2 Disketten 3“ 29,- 


L 406 


Joyce-Bücher 

Joyce - mehr als ein Textsystem 
+ DATABOX, Diskette 3“ 49 , 


DM 


Gesamtbetrag: 


DM 

















































































































































































Abonnement 

Rechnungsanschrift 


Vorname, Name 

1 1 1 1 

1 M 1-1 

Straße, Nr./Postfach 

1 1 1 1 1 1111 

1 1 1 1 

MM, 

PLZ/Ort 

Widerrufsrecht- 



Ich weiß daß ich diese Vereinbarung innerhalb einer Woche 
beim DMV-Verlag, Postfach 250, 3440 Eschwege, schriftlich wi¬ 
derrufen kann, wobei bereits die rechtzeitige Absendung mei¬ 
nes Widerrufschreibens zur Fristwahrung ausreicht. Ich 
bestätige das durch meine zweite Unterschrift. 


Datum 2 Unterschrift <Bei MlndwjahrlOiM' <tes o#«Ulieh8n Veft'otora) 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
CPC International 
Postfach 250 

3440 Eschwege 



Alle 2 Monate bietet Ihnen PC In¬ 
ternational aktuelle Informationen 
zu CPC und Joyce. Nutzen Sie 
dieses Wissen mit einem Abonne¬ 
ment zu Ihrem ganz persönlichen 

• Preisvorteil 

• Informationsvorsprung 

• Zustellkomfort 

Zur Erinnerung: 

Mein persönliches Abonnement wur¬ 
de bestellt am 


__ Widerrufsrecht - 

Ich woiß, daß ich diese Vereinbarung Innerhalb ei¬ 
ner Woche beim DMV-Verlag, Postfach 250, 3440 
Eschwege, schriftlich widerrufen kann, wobei berells 
die rechtzeitige Absendung des Widerrufschreibens 
zur Fristwahrung ausreicht. 



Einzel hefte 


Ja, Ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


PLZ/ORT 

; □ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

I □ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD) 

1 Datum Unterschritt (beTMInderlätirigen des gosotzlictien Vertrotors) 



CPC-/PCW-Joyce-Bestellservice 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck, 
fl Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD). 


Datum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
CPC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
CPC International 
Postfach 250 

3440 Eschwege 



PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 

• Sonderheften 

• DATABOXEN 

• Sammelpacks 

Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 



Die Power-Software von PC Am¬ 
strad für CPC und PCW Joyce ist 
unter Kennern bereits ein Begriff, 
und unser Sortiment wird Monat 
für Monat gepflegt und erweitert. 
Und vergessen Sie nicht: Soft¬ 
ware von PC Amstrad ist auch ein 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 

• preisgünstig 

• bewährt 

• praxisgetestet 

Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft- 
ware wurde bestellt am 
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Sonderhefte • Sammelordner • Bücher 


DATABOX 


DOS EXTRA 

2 Stk. 5 1/4“-Disk 

1 Stk. 3 1/2“-Disk 

DM 18,- 

DM 35, - 

DM 35. - 

C 356 

Nr. 3 

□ 357 

L 358 

□ 381 

Nr. 4 

ÜT3811 

L. 3812 

1 382 

Nr. 5 

T 3813 

□ 3814 

□ 383 

Nr. 6 

□ 3815 

J 3816 

L 384 

Nr. 7 

J 3817 

D 3818 

L. 385 

Nr. 8 

□ 3819 

1 3820 

b 387 

Nr. 10 

[ 3823 

L 3824 

□ 388 

Nr. 11 

L 3825 

Ü 3826 

□ 389 

Nr. 12 

n 3827 

9 3828 

C 391 

Nr. 13 



□ 393 

Nr. 15 

1 3831 

T 3832 

d 394 

Nr. 16 

C 3833 

J 3834 

WinDOS 

1 Stk. 5 1/4“-Disk 

1 Stk. 3 1/2“-Disk 

DM 18,- 

DM 24,- 

DM 24, - 

J 30200 

Nr. 1 

Diskette im Heft 

_ 

□ 30201 

Nr. 2 

Diskette im Heft 

_ 


DMV-ComputerWissen 

5 1/4"-Diskette 

3 1/2“-Diskette 

DM 18,- 

DM 35,- 

DM 35,- 

□ 3511 Band 1, Basic Toolbox 

□ 3512 

□ 3513 

□ 3514 Band 2, Textverarbeitung 

□ 3515 

□ 3516 


Best.-Nr. 


DM 


□ 60500 
n 60510 

□ 60520 

□ 60530 

□ 40101 

□ 40102 

□ 40103 

□ 40200 

□ 40210 


DOS-Taschenbuch Band 1 
DOS-Taschenbuch Band 2 
DOS-Taschenbuch Band 3 
DOS-Taschenbuch Band 4 
Das große DOS-Profi-Arbeitsbuch 
Datenfernverarbeitung - professionell 
Clipper 5.0 

PC Kompakt - ConText 4.0 


29,80 

29,80 

29,80 

29.80 
78,- 
48,- 
58,- 

19.80 


DOS- 

Taschenbiicher 

5 1/4“-Diskette 

DM 24,- 

3 1/2--Dlskette 

DM 24,- 

BAND 1 

d 60501 

r:. 60502 

BAND 3 

□ 60521 

□ 60522 

BAND 4 

r 60531 

□ 60532 

Sammelordner 



2 Stk. 15.80 

O 530 DOS 

11 534 toolbox 

3 529 WinDOS 

L, 531 CPC International 

I I 535 PCpur 
□ 537 AMIGA OOS 


(Inland 4.- DM, Ausland 6,- DM) 


Gesamtbetrag: 


DM 


\ 

imer 
inen 
Ihrer 
ipen 
ner- 
eren 
i. Im- 
tPC 


ATA- 


PC- 

Software 

vom 

DMV 

Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 


PC-Software 


5 74" 

3 72“ 

2726 

O 

2727 

C 

2728 

r 

2729 

L 

2532 

u 

2533 


2536 

n 



275 0 

ii 

276) 

3 

2752 

u 

2753 

ul 

2754 

u 

27SS 

r 

2756 

rz 

2757 

u 

2758 

u 

2759 

3 

2760 

3 

2761 


2534 

□ 

2535 

r 

2536 

L 

2537 

l. 

256 

i 

257 

i: 

2903 

r. 

2904 


2905 

n 

2906 


2907 

LI 



2522 

J 

252) 


238 

' 1 

239 


2613 

'' 

26 U 

r: 

2621 

c 

2622 

l: 


DM 


Turbo 

Pascal 3M/5/6 

L 2632 


ConText 4.0. 

ConToxt 4.0 - Updnto 

ConBnso 

ConVIaw 

ConLox - Rechlschroiblexikon Doulsch 
ConLox - Ubarsol/ungshille lüi Einstiger 
Douisch/Engliseh 

ConLox - Üborselzungshllle für Einsteiger 
EngllschlOoutsch 

ConLox - Ubersotzungshilfo für Sprachkenner 
Doulsch/Engllach 

ConLox - Üborsotzungshilfe lüi Spiachkennar 
EngliscWDeulsch 

GRIPS-Dosktop und -DookDraw 
OMV-ProfITool» t. Clippnr 
DMV-Integrator I. Clippei 
PC-VIrusDoktor 
PC-VIrusFlnder 
GraphBaa PC, Turbo Basic 
GraphBos PC, Microsoft Oulck Basic 
ERGO 3.0, OOS-Bsnutzarobotflöche 
MaskEdlt Plus mit einem Trolbor 
MoskEdlt Plus, Paket mit zwei Treibern 
MaskEdlt Plus, Pak«l mil drei Tteiborn 
Turbo C 
Microsoft C 
L' 2633 


Top-Speed 

Modula-2 

LI 2634 


Turbo 

Basic 

D 2635 


2720 ü 
2730 C 
2732 r 
2734 C 
2736 □ 
2724 ü 
6031 J 
227 -1 

2738 P 
6017 C 
6019 C 
6025 U 


2721 

2731 

2733 

2735 

2737 

2725 

6032 

233 

2739 

6018 

6020 

6026 


WlnBasIc 

DMV-WIndowsTools Sysiemlnfo 
DMV-WIndowsToola MulÜCopy 
DMV-WIndowsToola Ito«Ed.t 
DMV-WIndowsTools ToxtSoarcb 
Colo RIX 

ProtEd 

BCI Dis Asm/186. (MS-DOS) 
NeoGraph 

3D-Draw Professional 
Navigator 4.8 
Llghtnlng 30, 1.8 


+ Porto/Verpackung 

(Inland 4,- DM, Ausland 6,- DM) 


249,- 
99, - 
149,- 
49.- 
49.- 


99,- 

99,- 

99.- 


99,- 
199,- 
199,- 
199, - 
99.- 
149,- 
99.- 
99.- 
199,- 
99.- 
149, - 
199,- 


Qulck 

8aslc 

r 2636 


209,- 
99.- 
99, - 
99,- 
99,- 
299,- 
99.- 
199,- 
99,- 
199,- 


199,- 


5 74' 


6035 :i 
6027 I 
2700 C 
2710 I 
2712 n 
2714 3 

20605 O 
20602 r 

20604 n 

20606 LI 
20606 LI 
20610 IL 
20612 r. 
20614 n 

248 □ 
1381 3 
1383 C 
1385 L 
1387 ü 
1295 ü 
1297 3 
1408 r 
1410 O 
1406 3 
1402 □ 
UM a 


3 72" 


6036 D 
6028 C 
2701 n 
27n n 
2713 LI 
2719 C. 
20601 V. 
20603 n 
2060S □ 
20607 n 
20609 r 
20611 r 
20613 n 
20615 n 
249 a 
1382 C 
1364 U 
1386 n 
1368 3 
1296 1 
1298 C. 
1409 a 
1411 3 
1407 a 
1403 3 
MOS 


DM 


Fontllne 

OOS-CAD 3.0 

DMV-Fnklurn 

DMV-AIellor 

DMV-Ateller Zusalz-Fontt 

DMV-Ateller Zusatz-Symboia 

MultICopy 

DataBase 

RAM Patroulllo 

Tippst 

Menuo 

Tormlnplanor 

Aotro 

ToxToCom 

Fraktal-Generator 3D. MS-OOS 

Oll Imperium 

Loom 

Zak McKracken 
Manlac Manslon 


Me 


Trodemaater 
Wlng Commandor 
The Secret Mlsslons 

Wlng Commander * The Secrot Mlsslons 
The Secret of Monkey Island 
Wonderland 


299, - 
199.- 
396.- 
249,- 
99, - 
99,- 
29.- 
20 ,- 
29,- 
29, - 
29 ,- 
29 .- 
29,- 
29,- 
69 ,- 
39.96 
89,98 
89,98 
69,95 
69.- 
49,- 
89.- 
39,- 
119,- 
89.- 
99.- 


_ DM 


Gesamtbetrag: 


DM 


Am- 
e ist 

jriff, 

inat 

tert. 

>oft- 

tein 

tzen 

PC- 


Soft- 




Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und so wlrd's gemacht: 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
In das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, Jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Sie! 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


Klelnanzeigen-Markt 


Private Anzeigen: Nur DM 5, - je angefangene Zeile. 

RittP^ofA 3 fünM^h^ m Q f ° hlUn9e A ! ° M 8 ' “ Je an 9 efan 9 ene Zeile, zzgl. gesetzlicher Mehrwertsteuer. 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren CPC Amstrad für 

_ private Zwecke C gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text; (Bitte deutlich In Druckbuchstaben schreiben!) 



n Die Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Privat-Anzeige). Chiffre-Gebühr 10, - DM mkl. MwSt zzql zum Anzeigenpreis 
In dieser Rubrik: v v 


- Biete an □ Suche □ Tausch 

I Hardware n Hardware 
U Software 1 Software 


□ Stellenmarkt/freie Mitarbeit 

□ Geschäftsverbindungen 

□ Verschiedenes 

























































































































































PC- 

Sonderhefte 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte Bitte lielern Sie an folgende Anschritt: 


Name 


Straße/Postfach 


PLZ/ORT 

J Den Betrag bezahle ich mit dem beigetügten Verrechnungsscheck, 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


Datum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
CPC International 
Postfach 250 

3440 Eschwege 



DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und verliefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 


PC- 

Soft wäre 

Ja, Ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgowählten Produkte. Bitte liefern Sie an folgende Anschrilt: 


Name 


Straße/Postfach 


PLZ/ORT 

Den Betrag bezahle Ich mit dem beigetügten Verrechnungsscheck. 

I □ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
CPC International 
Postfach 250 

3440 Eschwege 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft¬ 
ware aus dem DMV-Versand¬ 
service 

• PC-Anwendungen 

• PC-Applikationen 

• PC-Entwicklungssysteme 

Zur Erinnerung: 

Meine PC-Software wurde bestellt am 


Datum Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 



Kleinanzeige 

Bei Angeboten: 

: Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Name 

Straße/Postfach 


PLZ/ORT 

C Den Betrag bezahle Ich mit dem beigetügten Verrechnungsscheck. 


Bitte 

ausreichend 

frankieren 


DMV-Verlag 
CPC International 
Postfach 250 

3440 Eschwege 



Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 


Datum 


Unterschrift (bei Minderungen des gesetzlichen Vertreters) 
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CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wissen so günstig 
wie noch nie erwerben. 


CPC-Sonderheft-Kraftpaket 




Fünf CPC-Sonderhefte 

3, 5, 6, 7, 8 


DM 35, 


CPC-Sonderheft-Kombipack 

Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX DM 29,-* 


DMV-Sammelordner 

2 Stück dm 15,80* 










































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyqe eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren, Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter, 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Der Joyce-Bild-Editor - erschließt die Grafikfähigkeiten Ihres 
Joyce: 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Einfache Integration beliebiger Texte in die Bildelemente 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Joyce- 
Drucker 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltext in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur dm 49,- 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle, des 
Zeichensatzes, 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,- 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 

Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxPlot - die Lösung für Busineß-Grafik auf dem Joyce: 

• Menügesteuerte Erstellung von Balken- und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellter Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlange. Zeilenabstand und Tabulatoren 

• Individuelle Bestimmung von Schriftweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 
Busineß-Paket nur dm 59,- 
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Keine Inhaltsverzeichnisse mehr mühsam einzeln auslesen! 
Mit GCPM sind Sie über alle Laufwerke immer im Bilde. 





















Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 

Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 


Joyce-Tabellenkalkulation 

Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung - mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 

Schnell, einfach und sicher - die Joyce-Tabellenkalkulation: 

• Schnelle Dateioperationen durch Benutzung der RAM-Disk 

• Besonders schnelle Berechnungsalgorithmen für die Felderwede • Übersichtliche 
Menülührung und 
Abfangen von Fehl 
emgaben • Stan¬ 
dardmäßig bis zu 
2574 Irei belegbare 
Felder für Berech¬ 
nungen • Am Rand 
eingeblendete For 
mel mit bis zu 68 
möglichen Zeichen 

• Eigene Befehle 
zur Verkürzung der 
Formeln und Expo 
nentialausdrücke 

• Ausdruck der Er 
gebmsse in bis zu 
drei verschiedenen 
Schriftarten 


Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 

nur DM 59,- 



Joyce-Datenbank 

Die ideale Datenbank für den Joyce mit minimalem 
Disketten-Speicherbedarf. Dennoch bietet Ihnen die 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten ettektiv verwalten mit der Joyce-Datenbank: 

• Besonders schnell durch Vorwendung der RAM-Disk für das 
Programm 

• Universell durch die Ver¬ 
wendung von Standard- 
Direktzugriffsdateien 

• Bequem durch Datenfrans- 
tervon vorhandenen in neuan¬ 
gelegte Dateien • Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert • Komfortabel durch 
Wahl der Sortierkriterien oder 
Mehrfachsortierung 
0 Listen mit automatischer 
Spaltenformatierung und 
Spaltensummen 0 Automa¬ 
tischer Eintrag neuer Dateien 
in das Diskotten-Hauptmenü 
0 Speicherung einmal ge¬ 
wählter Druckparameter zur Wiederverwendung 

Joyce-Programmsammlung 5: 

Datenbank (PCW 9512 auf 
Anfrage) nur DM 69,-* 


■!- m nm teiü'iairscf "»■ 

• S-SÄ fi Satt 

- 1 . bl Mid .Iw luk > MWa 

- k <!• kUwUMl* ist *m Md 1 M.KM 

- k <it niMimiwk w uw h aam 
it UMkin min nt m nr-inu nkwla 

- Im Hltwllia Mi l> klntlMk li Ilm Ma.»l II. fcHmi 


Joyce-Zeichensatz-Designer Joyce-Dateiverwaltung 


Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 

Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßreihen auf Bildschirm und Drucker ausge¬ 
ben. 

Zeichensätze selbstgemacht mit dem Joyce-Zeichensatz-Designer: 

0 Editieren. Erstellen und Abspeichern von Bildschirm-Zoichensätzen 

• Drucken von vorformatiorton ASCII Texten unter CP/M Plus möglich 

• Vier fertig gestaltete Zeichensätze im Lieferumfang enthalten 

• Bonusprogramm zum Einstollon der Joyce-Schnittstelle und Tastatur 

MGX - Funktionen und Meßwerte gratisch auf Bildschirm und Drucker: 

0 Arithmetische Gnmd- und Sonderfunktionen sind darstellbar 
0 Gleichzeitige Darstellung mehrerer Funktionen und Meßreihen 
0 Druckerausgabe der Ergebnisse im Großformat möglich 
0 Neben einer Klammerebene Ist eine Memory-Funktion integriert 

Joyce-Programmsammlung 1: 
Zeichensatz-Designer nur dm 49,-* 


Universelle Erstellung und 
Verwaltung eigener Dateien 

Legen Sie Ihre Daten in eigene Dateien ab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 

SuperDat - Super-Dateiverwaltung für Ihre Daten: 

0 Komfortable Eingabe der Daten In eine Eingabemaske 
0 Mehrere Arten von Suchfunktionen, z.B. auch Suche mit Jokern 
0 Dateien bis zu 8 Feldern und Datensätze bis 255 Zeichen möglich 

SuperTex - verarbeitet Ihre Daten automatisch: 

0 Einfugen von ausgewählten Einträgen aus SuperDat-Dateien m Text 
0 Umwandlung von bis zu 30 Datensätzen in eine LocoScript-Dalei 

SuperCal - der Tachenrechnertür den Joyce: 

i Bietet Grundrechenarten, Winkel-, 

Quadrat- und Prozentlunklionen 

0 Neben einer Klammerebene ist 
eine Memory-Funktion integriert 

Joyce-Pro- 
gramm- 
sammlung 2: 

Dateiverwaltung 
nur DM 49,-" 
























Joyce-Sonderhefte 

Als Sonderpublikationen der PC Amstrad International bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmalig veröffentlichte 
Beiträge sowie reichlich Tips & Tricks zu Joyce/PCW 8256,8512 und 9512. 


Aus dem Inhalt: 

Joyce-Sonderheft 4: 

• Strickmustergenerator 

• WordStar-Verbesserungen 

• Bundesligasimulation 

• Super-Reaktionsspiel Filemanager 

• Pulldown-Menüs 

• Astrologieprogramm 

• Diskettenmonitor 

• Hauptstädte raten in LOGO 

• Statuszeile für dBase und Basic 

• Hardcopy-Routine für 24-Nadler 

• LOGO macht Schachteln 

• dBase-Literaturverwaltung 

• Universelles Werkzeug zur Veränderung von dBase-Dateien 

• Joyce-Sonderheft-Kombipack 


Joyce-Sonderheft 3: 

• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketten-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 




JOYCE 

I eine Publikation der PC International 
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Joyce-Sonderheft 2: 


Adre ßverwaltung 

Archivprogramm (Video- oder Literaturverwaltung) 

Pascal-Compiler in Basic 

Suburbia (Spiel ähnlich Monopoly(R)) 

Turbo-Pascal-Grafikroutinen ohne GSX 

Komfortable Balkengrafik 

Joyce-Zweitlaufwerk selbst anschließen 

3D-Plotter 

Etikettendruckprogramm 

Ordnung auf der Diskette mit LocoScript 

dBase-Handbuch selbst ausdrucken 

LOGO-Funktionenzeichner 


Jeweils ein Sonderheft + die DATABOX dm 29,-* 


Tjpä! 










DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont Ihres 
Computers weit über LocoSript hinausgeht, finden jetzt Ihre Bestätigung: 


Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis, 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce — 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 

Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger, 
die sich erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaltung. 

Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmierhilfen, Tips und Tricks: 

Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen s 

OUTs und POKEs unter Basic 

• Hardware: 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansions-Port 

Sprachsynthesizer 

Joyce - mehr als ein Textsystem 

325 Seiten mit farbigen Abbildungen, Leinen- 
Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 

Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Siebert zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScript auf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 


JOYCE 

JOYCE - mehr als ein Textsystem 


Anwendungen und Problemlösungen 
für PCW 8256/8512/9512 



Auf der Diskette erhalten Sie über 50 Datei¬ 
en mit Schablonen, Brief- und Postkarten- 
Layouts, Serien-Rundschreiben, Etiketten, 
Formularen, Schriften, Bildschir¬ 
minstallationen und vieles mehr. 

Aus dem Inhalt: 

• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 

Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 

Leinen-Hardcover, 

Inklusive 3-Zoll - 
Diskette 

jetzt nur DM 49,-* 

































Das ist die Software zur PC INTERNATIONAL 
Jeden Monat neu 

DATABOX: 

- mehr als der übliche Software-Service 

- bringt ergänzend sämtliche Listings der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf 3-Zoll-Diskette 

- Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

- Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

- erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes 

- Der Datenträger zur PC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 


Einzelbezugspreise für DATABOX: 

3-Zoll-Diskette 
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Inland: 


Ausland: 


Einzelpreis 

24,- DM 

Einzelpreis 

24,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Kassette 


Inland: 


Ausland: 


Einzelpreis 

14,- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

18,- DM 

Endpreis 

20,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich. 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 




















Tips & Tricks 


was man wissen muß, aber daß man 
sich nicht fortbewegen kann, mutet 
schon merkwürdig an. Tatsächlich 
kommt man nur nach oben, indem man 
einen Roboter auf einem Feld er¬ 
schafft. das etwa auf Augenhöhe des 
aktuellen Roboters ist, und dann über¬ 
wechselt. Der verlassene Roboter soll¬ 
te dann natürlich so schnell wie mög- 

Sentine! 


lieh absorbiert werden. Nur so kann 
man sich ganz nach oben arbeiten. 
Wenn man das Fadenkreuz mit der 
Leertaste abschaltet, kann sich der Ro¬ 
boter schneller drehen. Vorsicht, wenn 
man vom Sentinel gesehen wird. Wer 
in Panik kommt und'Hyperraum fahrt, 
hat oft keine Chance mehr. Also 
schnell handeln und sich einen sicheren 
Platz aussuchen. 

Wer so weit gekommen ist, daß er den 
Sentinel absorbieren kann, sollte seine 
Euphorie beherrschen und zuvor die 
Landschaft von oben betrachten. Dies 
sieht nicht nur schön aus, sondern er¬ 
öffnet auch den Blick auf Bäume, die 
noch absorbiert werden können, bevor 
man den Level verläßt. 

Ein Spiel mit Ausblick 

In den höheren Levels bekommt der 
Sentinel Unterstützung von Helfern, 
und man hat kaum Zeit, auf einem 
Platz zu bleiben. Hier sollte man zuerst 
Höhe gewinnen und nur so viel Energie 
wie nötig sammeln. Wenn man erst 
einmal so hoch ist, daß die Helfer ab¬ 
sorbiert werden können, sollte man 
dies tun. Danach hat man viel mehr 
Ruhe, die Energie wieder aufzufri¬ 
schen. 

Auch wenn Rainbow Islands so süß 
aussieht, daß man es für ein Spiel für 
kleine Kinder halten könnte, fordert es 
doch sogar abgebrühte Spieler heraus. 
Deshalb sollte man sich auch nicht mit 

Reinbow /elende 


der Jagd nach Bonuspunkten aufhalten, 
das Zeitlimit ist eng. Anders sieht’s 
aus. wenn es Extras zu erhaschen gibt. 
Wenn man hier schnell genug ist, er¬ 
leichtert dies das Spiel ungemein. 
Manche meinen, es wäre einfacher, 
möglichst schnell hochzuklettern und 
an den Feinden vorbeizuspringen. Man 
wird aber, ist man erst nach unten ge¬ 
fallen und sozusagen im Wespennetz 


gelandet, schnell feststellen, daß dies 
der falsche Weg ist. 

Diamanten kommen übrigens beson¬ 
ders dann zum Vorschein, wenn ein 
Gegner von einem schießenden Stern 
getroffen wurde. Bei den Gegnern am 
Ende eines Levels sollte man sich Zeit 
lassen und studieren, nach welchem 
Prinzip sie sich bewegen. Die Spinne 
am Ende des ersten Levels beispiels¬ 
weise hüpft umher. Und zwar so hoch, 
daß man darunter hindurch rennen 
kann —oder vielmehr muß. So gibt es 
zu jedem Endmonster eine spezielle 
Taktik. Wenn man diese herausgefun¬ 
den hat. ist es nur noch halb so schwer. 
Will man nach rechts weiterfliegen, 
sicht man bei Extreme vor einer schier 
unlösbaren Situation. Es gibt zwar drei 
Öffnungen, aber kurz bevor man eine 
erreicht, wird diese von einer Barriere 

£x tneme 


verschlossen, und man fühlt sich wie 
Sysiphus. Abhilfe schafft das Turbo- 
Extra. Man bekommt es, wenn man 
lange genug auf das windschnittige 
Raumschiff an der äußersten Ecke 
(links oben) des Spielfelds schießt. Mit 
diesem Turbo erreicht man einen 
Durchgang, che er sich verschließt. 
Zuvor sollte man aber die Energie- 
Sphären-Kugel holen und abschleppen. 
Dazu muß man sich durch die Lava 
kämpfen und dabei in der wandernden, 
eckigen Luftblase bleiben. 

Bei Pick'n Pile sollte man sich gar 
nicht erst bemühen, die Kugeln hoch zu 
stapeln oder vorauszuplanen. Wer 
schnell ist. braucht sich nicht darum zu 
scheren, ob er rationell arbeitet. Ledig¬ 
lich auf die Köpfe sollte man ein Auge 
haben. Wenn diese den Boden berüh¬ 
ren, wird's brenzlig. Auch die Bonus- 
Zeit einzusammeln lohnt sich. Wenn 


am Ende nur noch verschiedenfarbige 
Kugeln übrig sind, einfach so oft ENT¬ 
ER drücken, bis sich alle entfernen 
lassen. 

Strategien und Taktiken gibt cs viele 
bei Firezone. Mehr, als sich hier auf¬ 
zählen lassen. Anfängern als Tip: Man 
sollte sich in jeder Kampfrunde auf we¬ 
nige Gegner beschränken, diese dann 
aber dafür so in die Zange nehmen, daß 
man deutlich überlegen ist. Besonders 
wichtig ist. mit den Reichweiten der 
einzelnen Waffen richtig umzugehen. 
Im ersten Raum von Rick Dangerous 
II muß man einfach nur durchlaufen 
ohne anzuhalten. Dasselbe gilt für die 
Treppe im zweiten Raum. Wenn man 
auf Roboter trifft, wird man Schüsse 
und Bomben schätzen lernen. Diese 
sollten aber gezielt eingesetzt werden, 
denn sie sind nicht gerade im Überfluß 
vorhanden. 

Neue Munition gibt es in versteckten 
Bonus-Räumen. Diese haben oft noch 
einen zweiten Vorteil: Wenn man ein 
Leben verliert, darf man dort wieder 
anfangen. Viele Laser lassen sich 
durch einen Knopf ausschalten, der ir¬ 
gendwo - vielleicht sogar in einem an¬ 
deren Raum — versteckt ist. Ansonsten 
hilft es weiter, darunter durchzukrie¬ 
chen. 

Laser einfach ausschalten 

Ganz wichtig ist, nicht überstürzt zu 
handeln. Da es kein Zeitlimit gibt, soll¬ 
te man lieber etwas langsamer Vorge¬ 
hen. als durch Unachtsamkeit ein Le¬ 
ben zu verlieren. Auch bei diesem 
Spiel erw'eist sich das Zeichnen einer 
Kaiie, aut der alle versteckten Gemein¬ 
heiten eingezeichnet sind, als nützlich. 
Notfalls reichen auch ein paar Notizen, 
damit man nicht immer wieder in die 
gleichen Fallen tappt. 

Andreas Lober, jg 


Schwierigkeiten? 

An dieser Stelle wollen wir uns in Zukunft, im Rahmen der leicht geänderten 
“Gamers Message“, Ihren Problemen mit beliebten Spielen widmen. 
Schreiben Sie uns doch einmal, bei welchem Spiel Sie an welcher Stelle 
nicht mehr weiterkommen. Wir bemühen uns, Ihnen zu helfen. Ihre Tips 
und Tricks zu Spielen sind uns ebenfalls immer willkommen. 

Die Adresse: 

DM V-Verlag 
Red. CPC International 
Kennwort: Gamers Message 
Fuldaer Straße 6, 3440 Eschwege 
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Tips & Tricks 


GigaCAD 


Grafikkonvertierung unter CP/M 

Das Programm “ARTWORX“ bietet ja bekanntlich die 
Möglichkeit, GIGA-CAD Bilder zu konvertieren und 
dann unter “ARTWORX“ weiter zu bearbeiten. Nun 
vermißt man jedoch auch die Möglichkeit, GIGA-CAD 
Bilder mit anderen Grafikprogrammen weiter zu bear¬ 
beiten, oder diese in eigene Programme als Titelscreens 
einzubinden. 


Versucht man ein GIGA-CAD Bild mit der Befehlssequenz: 
LOAD < name.pia > .&C000 in den Bildschirmspeicher zu 
laden, erhält man die Fehlermeldung “SYNTAX ERROR“. 
Der Grund hierfür liegt auf der Hand: Da GIGA-CAD unter 
CP/M abläuft, besitzt das erzeugte Bild keinen Datei-Header, 
in dem wichtige Informationen über die Datei, wie zum Bei¬ 
spiel der File-Typ, die Ladcadresse, und die File-Länge ent¬ 
halten sind. Um ein GIGA-CAD Bild so zu konvertieren, daß 
man es unter Basic laden kann, muß es lediglich mit einem 
Header versehen werden. 

Um dies zu bewerkstelligen, muß man folgendermaßen Vor¬ 
gehen: 

Man lädt unter CP/M mit einem Debugger ein GigaCAD-Bild 
an die Adresse 180H ein und füllt dann den Bereich von 10ÖH 
bis I80H mit Nullstellen auf, um eventuell in diesem Bereich 
vorhandenen “Müll“ zu entfernen. 

Daraufhin müssen, wie in den Beispiellistings zu ersehen ist, 
in die entsprechenden Speicherzellen die Informationen über 
Filename, Ladeadresse, Filelänge, und Filetyp eingepateht 
werden. 

Nun kann der Bereich zwischen 100H bis zum Dateiende ab¬ 
gespeichert werden. 

Da diese Methode ziemlich umständlich ist, wurden drei 
SUBmit-Dateien erstellt, die Ihnen die Konvertierung bei den 


/•Programm: GIGAZMON.SUB 

;Version für CP/M Plus mit PD Debugger ZMON+ 

;Aufruf: A>SUBMIT GIGAZMON Bildname Extension 
zmon+ 

<i $1.$2,0180 
<y 0100 017F 00 

<y 0101 0107 43,4F,4E,56,45,52,54 
<y 0108 0108 20 
<y 0109 010B 42,49,4E 
<y 0112 0112 02 
<y 0116 0116 C0 
<y 0119 0119 40 
<y 0141 0141 40 
<y 0143 0144 5C,04 
<W $1.BIN 0100 4OFF 
<*0 


; Programm: GIGASID.SUB 

;Version für CP/M Plus mit Debugger SID.cpM 
; Aufruf: A>SUBMIT GIGASID Bildname Extension 
sid 

<r$l.$2,0080 
<f 0100 , 017F,00 
<f0101,0101,43 
<f0102,0102,4F 
<f0103,0103,4E 
<£0104,0104,56 
<f0105,0105 ,45 
<10106,0106,52 
<f0107 , 0107 , 54 
<f0108,0108 , 20 
<£0109,0109,42 
<f01ÖA,010A,49 

<f010B,010B,4E __ 


unterschiedlichen CPC Konfiguraltionen wesentlich verein¬ 
fachen. 

• GIGAZMON.SUB (arbeitet unter CP/M PLUS mit dem 
Public Domain Debugger “ZMON + “ von Martin Kotulla) 
Bei Verwendung dieser Submit-Datei müssen sich folgende 
Dateien auf der Diskette befinden: GIGAZMON.SUB, 
ZMONA-.COM , ein GIGA-CAD Bild zum Beispiel 
DEMO. PIA, und SUBMIT.COM . 

Aufruf unter CP/M PLUS: 

SUBKIT GIGAZMON Bildr.ame Extension 

• GIGASID.SUB (arbeitet unter CP/M PLUS mit dem De¬ 
bugger “SID“, der ja als Dienstprogramm mit CP/M PLUS 
geliefert wird. 

Bei Verwendung dieser Submit-Datei müssen sich folgende 
Dateien auf der Diskette befinden: GIGASID.SUB, 
SID. COM, ein GIGA-CAD Bild z.B DEMO.PIA, und SUB- 
MIT. COM . 

Aufruf unter CP/M PLUS: 

SUBKIT GIGASID Bildname Extension 

• GIGADDT.SUB (arbeitet unter CP/M 2.2 mit dem De¬ 
bugger “DDT“) 

Bei Verwendung dieser Submit-Datei müssen sich folgende 
Dateien auf der Diskette befinden: GIGADDT.SUB, 
DDT. COM, ein GIGA-CAD Bild z.B DEMO.PIA, SUB- 
MIT. COM, und XSUB. COM . 

Aufruf unter CP/M 2.2: 

SUBKIT GIGADDT Bildname Exter.sior. 

Bei allen drei Aufrufen müssen Sie darauf achten, daß der 
Bildname und die Extension nicht - wie gewohnt -durch ei¬ 
nen Punkt, sondern durch ein Leerzeichen getrennt sind. 


Den Ausdruck in Mode 2 

Ein schönes Ergebnis erhält man, wenn man das konvertierte 
GIGA-CAD Bild mit dem in der CPC 10/88 veröffentlichten 
Programm 'Mikro-Copy' ausdruckt, man sollte aber vor 
dem Laden des Bildes 'MODE 2' wählen, weil dies auch der 
Mode ist, unter dem das GIGA-CAD Bild erzeugt wird. 

Christian Heinz/rs 


<£ 0112 , 0112,02 
<£0116,0116,C0 
<f0119,0119,40 
<f 0141,0141,40 
<f0143,0143,5C 
<£0144,0144,04 
<W $1.BIN,0100,4OFF 
< A C 


/■Programm: GIGADDT.SUB 

;Version für CP/M 2.2 mit Debugger DDT.COM 

/•Aufruf: A>SUBMIT GIGADDT Bildname Extension 

xsub 

ddt 

i.$l . S2 

r0080 

fOlOO,017F,00 
fOlOl,0101,43 
f0102,0102,4F 
£0103,0103,4E 
f0104,0104,56 
£0105,0105,45 
f0106,0106,52 
£0107,0107,54 
f0108,0108,20 
f0109,0109,42 
f 010A,010Ä,49 
f01 OB,01 OB,4E 
£ 0112 , 0112,02 
£0116,0116,C0 
f0119,0119,40 
£0141,0141,40 
f0143,0143,.5C 
f0144,0144,04 

g° 

save 64 $1.BIN_ 


70 CPC 12’91/1 ’92 





















Angelesen 


Bücher unter der Lupe 

Schneider CPC Grafik - Einführung, Beispiele, Anwendungen 


Autor: J. Hegner 
Verlag: IWT Verlag GmbH 
München 

ISBN: 3-88322-147-3 

Eine der interessantesten Eigen¬ 
schaften des CPC dürfte wohl 
seine Fähigkeit zur Grafikdar¬ 
stellung sein. Das hier vorge¬ 
stellte Buch beschäftigt sich mit 
der Grafikprogrammierung vom 
BASIC aus. Auf fast 300 Seiten 
bekommt der Leser eine kom¬ 
plette Einführung in die Hand¬ 
habung der Grafik-Routinen. 
Begonnen wird ganz einfach, 
nämlich mit dem MODE-Be- 
fehl. Anschließend geht Hegner 
ausführlich auf das Anfertigen 
von Zeichen- oder Blockgrafi- 
ken unter Nutzung des PRINT- 
Belchls ein. Man lernt den Um¬ 
fang des bereits im CPC inte¬ 
grierten Zeichensatzes kennen. 
Wichtige Befehle wie BOR- 
DER, INK, PEN und CLG wer¬ 
den erklärt. Die Definition eige¬ 
ner Zeichen mit Hilfe des SYM- 
BOL-Bcfchls beschließt diesen 
Abschnitt. 

Im nächsten Teil des Buches 
geht es schon in die Vollen. 
Hier ist das Thema die hochauf¬ 
lösende Grafik, bei der jeder 
Punkt des Bildschirms einzeln 


Autor: Peter Heiß 
Verlag: Heise-Verlag, 
Hannover 
Preis: DM 29.80 

Dieser Komplett-Kurs für CPC 
464/664 und 6128 stellt zwar 
nicht das erste Asscmblcr- 
Buch, aber sicher eines der be¬ 
sten dar. 

Er wendet sich an alle Program¬ 
mierer, die bereits erste Erfah¬ 
rungen mit Basic gesammelt ha¬ 
ben und nun tiefer in Rechner 
und Betriebssystem einsteigen 
wollen. 

Begriffe wie Adressen, Spei- 


angesprochen wird. Nach der 
Klärung wichtiger Begriffe wie 
etwa “Koordinatensystem“ geht 
es gleich an den ORIGIN-Be- 
fehl. 

Nun erfährt der Leser einiges 
über Befehle, mit denen die Ma¬ 
nipulation jedes einzelnen Bild¬ 
punktes gewährleistet wird. Das 
alles läßt sich an einfachen, 
leicht nachvollziehbaren Bei¬ 
spielen üben. 

Nun ist etwas Ahnung von Ma¬ 
thematik gefragt — wobei aller¬ 
dings halbwegs gepflegte Schul¬ 
kenntnisse völlig ausreichen. Es 
geht um die Trigonometrischen 
Funktionen. Mit Hilfe der 
Funktionen Sinus und Kosinus 
werden die herrlichsten Grafi¬ 
ken auf den Bildschirm gezau¬ 
bert. Auch so geheimnisvolle 
Dinge wie Lissajous-Figuren 
und Zykloiden werden anhand 
guter Beispiele erklärt. Ein klei¬ 
ner Auszug, der zeigt, wie 
schnell hier das Gelesene am 
Bildschirm umzusetzen ist: 

110 MODE 1 
120 B0RDER 0 
130 INK 0,0: INK 1,24 
140 DEG 

150 F0H j =-40 tc 40 STEP 20 
160 F0R i= 0 to 359 STEP 0.5 
170 x=32D+300*sin(i) 

180 y=200-t-180*sin(4*i+j) 


eher, CPU und Variablen wer¬ 
den als Grundwissen vorausge¬ 
setzt. Der Leser wird gleich ins 
kalte Wasser von Flags, Regi¬ 
stern und Byteverknüpfung ge¬ 
worfen, was dem erfahrenen 
Bas i c- P rog ram mierer sch n el I 
zu sichtbaren Lernerfolgen ver¬ 
helfen dürfte. 

Dieser Kurs ist so ausgelegt, 
daß Neugierige bald ihre ersten 
RSX-Befehle implementieren 
können, ohne sich lange mit 
Grundlagen und Rechenopera¬ 
tionen aufhalten zu müssen. 
Genauso lassen sich aber auch 
alle Kapitel der Reihe nach ab- 


190 PLOT x,y 
200 NEXT 
210 NEXT 

220 IF INKEY$=““ TUEN 220 

Dieses kurze Programm erzeugt 
verschiedene Lissajous-Figu¬ 
ren, bei denen sich die Phase 
von -40° in 20°-Schritten auf 
4-40° bewegt. 

Hegner verwendet dankenswer¬ 
terweise auch etliche Seiten dar¬ 
auf, die Fenstertechnik zu erklä¬ 
ren. Sie stellt eine äußerst effek¬ 
tive Methode dar, Übersicht¬ 
lichkeit auf den Bildschirm zu 
bringen. 

Obgleich das CPC-BASIC die 
Fenstertechnik direkt unter¬ 
stützt, greifen viele BASIC- 
Freunde aus Unkenntnis nie zu 
diesem sinnreichen Werkzeug. 
Am Schluß des Buches findet 
sich noch ein Anhang, in dem 
die wichtigsten Details nachge¬ 
schlagen werden können. Ne¬ 
ben einem Verzeichnis der Gra- 
fik-BASIC-Befehle sind hier 
noch viele andere wichtige Din¬ 
ge wie eine Farbtabelle und ein 
Verzeichnis der Beispielpro¬ 
gramme abgedruckt. Ein sol¬ 
cher Anhang macht Hegners 
Grafikbuch letzten Endes erst so 
richtig tauglich für die Praxis. 


arbeiten, was dann neben dem 
Erlernen der eigentlichen As¬ 
semblersprache auch zu fun¬ 
diertem Wissen über die Archi¬ 
tektur des CPC-Systems führt. 
Ein Anhang mit kompletter Be- 
fchlslistc des Z80-Prozessors 
macht das Buch auch zu einem 
wertvollen Nachschlagewerk 
für die Programmierung. 

Die einzelnen Kapitel sind je¬ 
weils mit nützlichen kleinen 
Basic- und Assembler-Pro¬ 
grammen gespickt, was schnel¬ 
le Erfolgscrlebnisse garantiert. 

Ulrich Schmitz 
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Know-how 


I 


Kampf dem “GOTO“ 

Strukturierte Programmierung in BASIC 

Programmieren Sie in BASIC? Die meisten CPC-Benutzer haben dies 
bestimmt schon getan oder haben es zumindestens versucht. Ein paar 
unentbehrliche Techniken des guten Programmierer wollen wir Ihnen mit 
diesem Beitrag vermitteln. 


Wer kennt ihn nicht , den allseits ver¬ 
wendeten. nicht immer beliebten und 
doch unentbehrlichen BASIC-Bcfehl 
“GOTO“? Dieser Befehl ist hauptsäch¬ 
lich für die zum Teil recht verworrenen 
BASIC-Programme verantwortlich, 
zumal Standard-BASIC fast keine 
Steuerbefehle besitzt. So bleibt nur 
noch “GOTO“ als letzte Rettung übrig. 
Da Sie allerdings mit ihrem CPC das 
ausgezeichnete Locomotive-BASIC er¬ 
halten haben, können Sie das “GOTO“ 
weitgehend vermeiden. 

Dieser Artikel soll allen “Weit- 
sprung“-Geschädigten helfen, den 
“GOTO“-Befehl so einzusetzen, daß 
kein unentwirrbarer Spaghetti-Codc 
entsteht. 

Dies geschieht mit Hilfe der Regeln der 
Strukturierten Programmierung (im 
folgenden kurz : SP). Es stellt sich jetzt 
natürlich die Frage, was die so viel ge¬ 
rühmte SP eigentlich ist. und was deren 
Anwendung Ictztenendes bringt. 

Unter dem Begriff Strukturierte Pro¬ 
grammierung (SP) versteht man ein 


Verfahren, Programme so zu ent¬ 
wickeln, daß sie leicht durchschaubar 
und änderbar sind. 

Wie alle guten Sachen hat aber auch die 
SP einen Haken. Besonders bei kurzen 
Programmen steigt der Zeitaufwand, 
wenn sie strukturiert programmiert 
werden. 

Wenn man aber längere Programme er¬ 
stellt, ist SP besonders effizient. Mit 
ihr können einzelne Routinen getrennt 
entwickelt und ausgetestet werden. 
Das bedeutet für Sie konkret, daß Sie 
zwar am Anfang etwas Zeit für die Pla¬ 
nung eines Programmes opfern müs¬ 
sen, sich das Endprodukt aber sehen 
lassen kann. Sie erhalten ein leicht än¬ 
derbares, übersichtliches Programm. 
Also schlechte Zeiten für “Drauf- 
los“-Programmierer, denn das ist ein 
Tabu der SP. Und eben weil SP so eine 
gute Sache ist, will ich Sie nicht länger 
auf die Folter spannen. 

Der erste Schritt auf dem Weg zum 
strukturierten Programm, ist die Er¬ 
stellung einer Analyse. Man stellt sich 


die Frage: Wie sieht überhaupt das 
Problem aus, das gelöst werden soll? 
Will zum Beispiel Herr Hacker ein 
Programm schreiben, damit ihn jeden 
Morgen sein CPC weckt, so muß er im 
Sinne der SP erst einmal das Problem 
analysieren. Herr Hacker kommt nun 
zu folgendem Ergebnis: Das Pro¬ 
gramm WECKEN soll ihn an Wochen¬ 
tagen um 7.00 Uhr, und am Wochenen¬ 
de um 10.00 Uhr wecken, da er aus- 
schlafen will. Mil diesen Informatio¬ 
nen kann er aber noch kein Programm 
schreiben. 

Er braucht erst eine Liste von Anwei¬ 
sungen, die das Problem lösen -den 
Ablaufplan. Er benutzt zum Entwurf 
des Ablaufplans ein Struktogramm. 
Das hat den Vorteil, daß er gar keine 
unstrukturierten Lösungen erstellen 
kann. Ein Struktogramm besteht aus 
beliebig vielen Strukturblöcken. Ein 
Strukturblock besteht aus einem Pro¬ 
grammteil, der eine bestimmte einfa¬ 
che Aufgabe löst. Ein Strukturblock 
sollte nicht zu komplizierte Aufgaben 
enthalten, da dann die Klarheit und 
Übersicht verloren geht. 

Am Anfang war ein 
Struktogramm 

Aber nach welchen Regeln wird nun so 
ein Struktogramm erstellt? Es gibt 
mehrere Möglichkeiten, wie aus diesen 
vielen einzelnen Blöcken ein Pro¬ 
gramm wird, das eine Aufgabe löst. 
Erst einmal kann man diese Blöcke an- 


Strukturblock 


iexmenz l. 


Symbole eines Strqfctogrammes 


Beschreibung, z.B. 
1ese a, b , c ein 


Strukturblock 1 


Strukturblock 2 


Strukturblock 3 


Selektion; 

\ Bedingung 

erfüllt 

X / . 

j a \ ne i n 


| 


Wiederhole bis ... 

< Repetition > 



—prechecked 


wird wiederholt 


-postchecked 


lird wiederholt 


Miederhole bis 


-Cycle loop 


Mi ederhole 


wird wiederholt 


Unterbrechung 
der Cycle 1oop 


f<; 


Bedingung für Ende 
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Varia bleu liste des Pro^rainxnes Ftt&btioiisplotter I 

Name 

Typ 

F unktionsbeschreibung 

X 

Real 

X-Wert für die Funktionsgleichung 

Y 

Real 

Y-Wert für den FLOT-Befehl 

FN Y<x) 

Funktion 

Funktionsgleichung 


Variableüliste des Pro^ramutes Fauktioiisplotter 2 

Name 

Typ 

F unktionsbeschreibung 

funktion$ 

String 

Enthalt die vom Benutzer gewünschte Funktionsgleichung. 

X 

Real 

X-Wert für die Funktionsgleichung 

Y 

Real 

Y-Wert für den PLOT-Befehl 

FIM Y(X) 

Funktion 

Funktionsgleichung 


einanderreihen. Hierbei isi cs sehr 
wichtig, daß ein Block genau einen 
Eingang und einen Ausgang bcsil/.l 
(Sequenzj). Das bedeutet: keine wilden 
GOTO-Sprüngc in Strukturblöcke hin¬ 
ein und aus ihnen heraus. Aber keine 
Angst, auch wenn das GOTO in der SP 
etwas stiefmütterlich behandelt wird, 
es kommt dennoch nicht 7.11 kurz. 

Es gibt noch andere Schleifenalten, die 
sich nur dadurch unterscheiden, daß 
die Prüfung der Abbruchbedingung 
einmal am Anfang (precheckcd loop), 
einmal am Ende (postchecked loop), 
und einmal in der Milte liegt (Cyele 
loop). 

Eine Schleife muß her 

Nun gibt es in BASIC folgendes Pro¬ 
blem: Der CPC kennt zwar noch die 
“prechecked“ Schleife, in Form der 
Befehle “FOR, NEXT“ und “WHILE, 
WEND“, bei denen die Abbruchbedin¬ 
gung am Anfang geprüft wird, aber bei 
der “postchecked“ Schleife läßt uns 
der BASIC-Interpreter in der Wüste 
stehen. Man behilft sich bei diesem 
Schleifentyp nun mit folgender Kon¬ 
struktion: 

10 REM Schleifenbeginn 
20 REM große Arbeit 
30 REM große Arbeit 

100 IF NOT (Abbruchbedingung) THEN GOTO 10 

Wie Sie sehen, ist der GOTO-Befehl 
doch für etwas gut. außer Unordnung 
zu stiften. 

Außerdem darf sich der “GOTO“-Be- 
fehl noch beim Aufruf von Routinen 


zur Fehlerbehandlung und für Pro- 
grartimabbrüche sehen lassen. Anson¬ 
sten hat er “Hausverbot“ in stilistisch 
guten Programmen. 

GOTO ist doch erwünscht 

Eine weitere Möglichkeit Ordnung zu 
schaffen besteht darin, häufig benötigte 
gleiche Programmteile in ein Unter¬ 
programm zu packen, das dann bei Be¬ 
darf aufgerufen wird. In BASIC ge¬ 
schieht dies mit den Befehlen “GO¬ 
SUB“ und “RETURN“. “GOSUB“ 
sagt dem CPC. daß er zu einer anderen 
Zeilennummer springen soll. Aber im 
Gegensatz zu “GOTO“ merkt sich der 
Computer die Position, die nach dem 
“GOSUB“ kommt. Deshalb weiß er, 
wo er nach dem Ende des Unterpro¬ 
grammaufrufs weitermachen soll. Die¬ 
ses Ende wird durch den “RE- 
TURN“-Befehl gekennzeichnet. 

In BASIC sieht das dann so aus: 

10 REM Hauptprogramm 

20 GOSUB 100 : REM Hier kommt die Unterrou- 
tine 

30 GOSUB 100 : REM nochmal 
40 END : REM Das wars. 

100 REM Unterroutine Schreibe 
110 PRINT 

120 RETURN : REM Jetzt, gehts nach dem GOSUB 
weiter ! 

Man spart sich viel Arbeit und Spei¬ 
cherplatz, wenn man viele Unterrouti¬ 
nen benutzt. Allerdings steigern die 
Zeilennummern in BASIC nicht gerade 
die Verständlichkeit eines Unterpro¬ 
grammaufrufes. Deshalb sollte man bei 
längeren Programmen eine Liste anle- 
gen, in der die Funktion und die Zei- 


lonnummer einer Unterroutine ver¬ 
merkt ist. 

Wie war das doch gleich mit der "post¬ 
checked“ Schleife? Sie ähnelt dem An¬ 
weisungspaar “REPEAT, UNTIL“ in 
Pascal. Diese Befehle bewirken, daß 
die eingeschlossenen Anweisungen so 
lange ausgeführt werden, bis die Be¬ 
dingung nach “UNTIL“ erfüllt ist. 
Zum Beispiel rufen Sie so lange ihr Un¬ 
terprogramm LESEN auf, bis sie von 
SP genug haben. Das ist auch eine RE- 
PEAT-UNTIL Schleife, 

Schleifen besser ohne GOTO 

Aufgrund der Nachahmung dieses 
Typs in BASIC muß die Abbruchbe¬ 
dingung verneint werden. Dann gibt es 
noch die Cycle-Schleife ohne Unter¬ 
brechung, die auch unter dem Namen 
“Endlosschleife“ als Schreckgespenst 
durch den Kopf des leidgeplagten 
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Die Darstellung des Programms Funktions¬ 
plotter als Struktogramm 

Computerfreaks geistert. Doch nur der 
Vollständigkeit halber will ich sie hier 
erwähnen, da sie sehr selten gebraucht 
wird. Wahrscheinlicher ist da schon 
die Verwendung der Cycle-Schleife 
mit Unterbrechung. Diese sieht aus, 
wie eine Endlosschleife, mit dem Un¬ 
terschied daß sie irgendwo in der Mitte 
verlassen werden kann. In BASIC sieht 
diese Verwirrung stiftende Struktur so 
aus: 

10 REM Schleifenbeginn 
20 REM große Arbeit 
30 REM schwere Arbeit 

40 IF Bedingung THEN GOTO 100 

90 GOTO 10 : REM Schleifenende 
100 REM weiter geh~s in Text ... 

Wie unschwer zu erkennen ist, kann 
dieser Schleifentyp leicht auf den er¬ 
sten Blick mit einer Endlosschleife ver¬ 
wechselt werden. Deshalb ist er nicht 
sehr günstig. 

Nun gibt es aber auch noch einen Be¬ 
fehl, der auf den Namen “IF“ hört und 
eine Verzweigung einleitet. Der Rest 
der Familie heißt “THEN“ und 
“ELSE“. 

Diese logische Struktur findet sich 
auch in der SP unter dem hochwissen- 
schaftlichen Namen “Selektion“ wie¬ 
der und erklärt sich abgesehen von dem 
Namen von selbst. 

Verzweigung und Selektion 

Zu erwähnen ist noch, daß sich im Sin¬ 
ne der SP die beiden Enden der Ver¬ 
zweigung weiter unten wieder treffen 
müssen. Andernfalls ist die IF-THEN 
Abfrage kein Strukturblock, denn der 
darf ja nur einen Eingang und einen 
Ausgang haben. Die Abbildung zeigt 
die den Befehlen entsprechenden Sym¬ 
bole. In der Abbildung finden Sie nun 
das hoffentlich etw'as klarere Strukto¬ 
gramm zu Herrn Hackers Problem. 
Doch nun auf zu unserem ersten prakti¬ 
schen Beispiel: 

Da Sie alle wahrscheinlich einen 
Wecker ihr eigen nennen, dürfte es 
ziemlich unnütz sein, selbigen zu pro¬ 


grammieren. Wesentlich interresanter 
gestaltet sieh da schon die Program¬ 
mierung eines Funktionsplotters. Die 
Analyse ergibt, daß ein Programm zu 
schreiben ist, das eine Funktion zeich¬ 
net, die vom Benutzer eingegeben 
wird. 

Zuerst erstellt man anhand dieser In¬ 
formationen ein Struktogramm. Aus 
ihm geht hervor, daß die Fehlerbe¬ 
handlung des Interpreters abgeschaltet 
wird. Das ermöglicht es Funktionen zu 
zeichnen, bei denen die Bereiehsgren- 
zen des PLOT-Befehls überschritten 
werden. Damit ist die Programmpla¬ 
nung aber noch nicht abgeschlossen. 
Wie Sic vielleicht bemerkt haben, fehlt 
immer noch eine wichtige Sache. Ne¬ 
ben dem Struktogramm, das den Ab¬ 
lauf des Programmes bechreibt, fehlt 
noch eine Variablen-Liste. Denn es ist 
ja noch nicht bekannt, welche Varia¬ 
blen benötigt werden und welchem Typ 
sie angehören sollen. Nachdem aber 
nun auch diese Liste erstellt worden ist, 
steht der Programmierung nichts mehr 
im Wege. 

Das Problem der Funktions¬ 
eingabe 

Wenn Sie das Listing FPLOTT1.BAS 
ausprobiert haben, wird Sie warschein- 
lich die etwas unelegante “Routine“ 
zur Eingabe der Funktion stören. 
Wenn zur Änderung der Funktionsglei¬ 
chung jedesmal das Programm unter¬ 
brochen werden muß, ist das natürlich 
ärgerlich. Es geht aber auch anders. 
Viele Funktionsplotter behelfen sich 
mit MC-Routinen, die die BASIC-Zei- 
le mit der Funktionsdefinition in das 
Programm einfügen, während es läuft. 
Das ist aber nicht nötig. 

Für stolze Besitzer eines Diskettenlauf¬ 
werkes gibt es eine Alternative. Man 
erzeugt ein BASIC-Programm auf Dis¬ 
kette. das nur aus einer Zeile besteht. 
Diese Zeile enthält die vom Benutzer 
gewollte Funktionsgleichung. Wenn 
man nun diese Programmzeile mit dem 
Hauptprogramm verbindet, ändert sich 
die Funktionsgleichung. Der Knack¬ 
punkt dieser Idee ist das Verbinden von 
zwei Programmen. Wenn man es mit 
dem “MERGE“-Befehl versucht, er¬ 
lebt man eine herbe Enttäuschung: Die 
Zeile wird zwar eingefügt, das Pro¬ 
gramm jedoch unterbrochen. 

Speichern Sie bitte zuerst den Funk¬ 
tionsplotter ab, da wir ihn später noch- 
einmal brauchen. Zuerst müsen Sie die 
Zeile als ASClI-Filc abspeichern : 

30 PRINT “HALLO": REM “MERGE“-Test 
SAVE “ZEILE“ ,A NEW 


Dann können Sie das Hauptprogramm 
starten : 

10 REM Hauptprogramm 
20 MERGE “ZEILE“ 

30 REM Hier soll die Zeile hin ! 

Wichtig ist, daß Sie beim Eingeben ge¬ 
nau dieselben Zeilennummern verwen¬ 
den, da sonst die Zeile an die falsche 
Stelle geladen w'ird. Nach dem Start 
des Beispielprogrammes sieht das Li¬ 
sting so aus : 

10 REM Hauptprogramm 
20 MERGE “ZEILE“ 

30 PRINT “HALLO“:REM “MERGE“-Test 

Also wurde die Zeile zwar nachgela¬ 
den. aber das Programm unterbrochen, 
da die Ausgabe “HALLO“ fehlt. Ein 
Blick in das BASIC-Handbuch verrät, 
daß es noch zwei Befehle gibt, 
“CHAIN“ und “CHAIN MERGE“. 
“CHAIN“ lädt ein Programm nach, 
löscht das alte und startet das neue. 
“CHAIN MERGE“ ist eine Mischung 
aus beiden Befehlen, und genau das. 
was wir brauchen. Dieser Befehl hat 
aber noch Parameter. Dem Dateina¬ 
men folgt die Zeilennummer, an der 
das Programm fortgesetzt werden soll, 
dann kommt ein “DELETE“-Befehl. 
Er säubert den Bereich, in den der zu 
ladende Programmteil kommen soll 
Das verhindert Ärger mit den Resten 
eines Vorgängerprogrammes. 

Die Lösung des Problems - 
CHAIN MERGE 

Doch nun zu unserem erweiterten Bei¬ 
spielprogramm : 

10 REM Hauptprogramm 
20 CHAIN MERGE “ZEILE" ,30 
30 REM Hier soll die Zeile hin ! 

Jetzt grüßt uns die nachgeladene Zeile, 
wie es sich gehört. Nach diesem Sche¬ 
ma arbeitet auch der verbesserte Funk¬ 
tionsplotter, den Sie in Listing 2 abge¬ 
druckt finden. Das zugehörige Strukto¬ 
gramm zeigt die Abbildung. 
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Woraul Sie in ihren Programmen ach¬ 
ten müssen, wenn Sie diese Methode 
Benutzen wollen, ist, daß dabei nur der 
Inhalt der Variablen “überlebt“. Die 
genaue Erläuterung finden Sie in ihrem 
BASIC-Handbuch unter den Befehlen 
“CHAIN“ und “CHAIN MERGE“. 
Das Nach laden von Programmen kann 
man auch noch auf eine andere Weise 
nutzen. Vor allem bei großen Program¬ 
men ist es sinnvoll, nur häufig benötig¬ 
te Routinen im Speicher zu halten. Das 
hat natürlich einen Nachteil: Besitzer 
eines Kassettenlaufwerks werden sich 
die Haare raufen, wenn sie nach jeder 
Eingabe den Programmteil “XYZ- 
0378“ von Kassette laden müssen. 

Ausnahmen bestätigen 
die Regel 

Und auch Besitzer einer Floppy kann 
es auf die Dauer zermürben, wenn zu 
viel nachgeladen wird. Die Ausfüh¬ 
rungsgeschwindigkeit sinkt dabei ja ra¬ 
pide. 

Und trotzdem: Es gibt Fälle bei denen 
es sinnvoll sein kann. Ein Beispiel 
wäre ein Programm, dessen Routinen 


nicht aul allen CPCs laufen. Dann kann 
man für jeden Computer eine Version 
der Routine bei Bedarf nachladen. 
Doch wie geht man am besten vor? Es 
sollte ja, wenn möglich, ein Pro¬ 
grammteil nicht zweimal hintereinan¬ 
der nachgeladen werden. 

Um den “CHAIN MERGE“ kommt 
man nicht herum. Er muß immer dann 
kommen, wenn ein Programmteil 
nachgeladen werden soll. Aber um das 
doppelte Nachladen einer Routine zu 
vermeiden, kann man eine Variable 
einführen, in welcher der Name der zu¬ 
letzt geladenen Routine steht. Das hört 
sich komplizierter an, als es ist. Unser 
Beispielprogramm von vorhin lautet 
abgeändert dann so: 

Zuerst muß eine neue Unterroutine er¬ 
zeugt werden, da ja die Zeilennum¬ 
mern nicht mehr stimmen : 

1000 REM Käme holen 
1010 geladen$=“SAGEHALLO“ 

1020 RETURN 

1100 REM Routine SAGEHALLO 
1110 PRIKT “HALLO“ 

1120 RETURN 
SAVE “HALLO",A 
NEW 

Jetzt kommt das neue Hauptprogramm: 


10 REM Hauptprogramm 
20 G0SUB 1000 : REM Karne hoier. 

30 IF geladen$< > “SAGEHALLO“ THEN CHAIN 
MERGE “HALLO“,40,DELETE 1000- 
40 G0SUB 1100 : REM Routine aufrufen 
1000 REM nichts geladen 
1010 geladen$=“NICHTS 11 
1020 RETURN 

1100 REM Routine tut nichts 
1110 RETURN 

Um keinen “Improper Argument“ 
Fehler zu erhalten, muß in dem Be¬ 
reich, den "DELETE“ löschen soll, 
bereits etwas stehen. 

Diesen Zweck erfüllen die Zeilen 1000 
bis 1110. Außerdem sorgen sie dafür, 
daß dem String “geladen“ ein Routi¬ 
nenname zugewiesen wird, und das 
Programm bei einem eventuellen Un¬ 
terprogram mau fr uf nicht im Nirwana 
landet. 

Ich holle, daß Sie mit diesen Informa¬ 
tionen den üblen Befehl “GOTO“ nun 
aus ihren Listings weitgehend verban¬ 
nen können:* Viel Spaß beim Probieren. 

Markus Kräutner, jg 

Literatur: 

/// KarI Kurbel, Programm Entwickluns, Gabler Vertäu 
Wiesbaden, 1990 


10 REM ****************************** 
20 REM *** *** 

30 REM *** Funktionsplotter 1 *** 

40 REM * * *(c)19 91 Markus Kraeutner*** 
45 REM *** & CPC International *** 
48 REM *** *** 

50 REM ****************************** 
60 ' 

70 REM Funktionsdefinition 
30 DEF FN y(x) 0.0001*X*X*X 
90 ' 

100 REM Loesche Bildschirm 

110 MODE 2:INK 0,0:INK l,26:BORDER 0 

120 ' 

130 REM Fehlerbehandlung aus 
140 ON ERROR GOTO 330 
150 ' 

170 REM Zeichne x- und Y-Achse 
180 MOVE 0,200:DRAW 640,200 
190 MOVE 320,0:DRAW 320,400 
200 ' 

210 REM Wiederhole 640 mal 
2 20 FÖR X=~320 TO 319 
230 

240 REM Berechne Y-Wert anhand von X 
Y = FN y(x) 


REM Zeichne Punkt 
PLOT X+320,Y+200,1 


250 
260 
270 
280 
290 
300 NEXT 
310 END 
320 ' 

330 REM Fehlerbehandlung 
340 RESUME NEXT 


tue nichts 


10 REM ****************************** 
20 REM *** *** 
30 REM *** Funktionsplotter 2 *** 
40 REM ***(c)1991 Markus Kraeutner*** 
45 REM *** & CPC International *** 
48 REM *** *** 
50 REM ****************************** 
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[117] 

[2086] 

[3485] 

[117] 

[1784] 

[1547] 

[117] 

[2074] 

[1361] 

[1904] 

[117] 

[1607] 

[855] 

[117] 

[2151] 

[1476] 

[117] 

[1951] 

[1073] 

[117] 

[350] 

[HO] 

[117] 

[ 2386 ] 
[703] 


[1365] 

[417] 

[1751] 

[2459] 

[1979] 

[417] 

[1365] 


60 ' 

70 REM Loesche Bildschirm 

80 MODE 2:INK 0,0:INK l,26:BORDER 0 

130 REM Lese Funktionsgleichung ein 

140 INPUT "Funktionsleichung :'",funktionS 

160 REM schreibe Zeile auf Diskette 
170 OPENOUT "Zeile“ 

180 PRINT 1(9, "260 DEF FN y(x) - «4-funktion 

190 CLOSEOUT 
200 • 

210 REM Lade Zeile von Diskette in Zeile 
220 CHAIN MERGE "ZEILE",230 
230 A$="ZEILE":|ERA,@A$ 

240 ' 

250 REM Funktionsdefinition 

0 6 01*x* x FN Y(X) = °- 001 * X * x_SIN ( x * PI / 1 «ö)* 
270 ' 

280 REM Fehlerbehandlung aus 
290 ON ERROR GOTO 500 
300 ' 

310 REM Loesche Bildschirm 
320 CLS 
330 ' 

340 REM Zeichne X- und Y-Achse 
350 MOVE 0,200:DRAW 640,200 
360 MOVE 320,0:DRAW 320,400 
370 ' 

380 REM Wiederhole 640 rna] 

390 FOR X=-320 TO 319 
400 

410 REM Berechne Y-Wert anhand von X 


Y = FN y(x) 

REM Zeichne Punkt 
PLOT X+320,Y+200,1 


420 
430 
440 
450 
460 
470 NEXT 
480 END , 

490 ' 

500 REM Fehlerbehandlung 
510 RESUME NEXT 


tue nichts 


[117] 
[2086] 
[3485] 
[117] 
[2512] 
[2826] 
[117] 
[871] 
[1229] 
[3597] 

[902 ] 

[117] 

[2243] 

[825] 

[1728] 

[117] 

[1758] 

[2621] 

[117] 

[17841 

[1345] 

(117] 

[2086] 

[91] 

[117] 

(2074] 
[1361] 
[1904] 
[1171 
[1607] 
[855] 
[117] 
[2151] 

[1476] 

[117] 

[1951] 

[1073] 

[117] 

[350] 

[HO] 

[117] 

[2386] 

[ 703 ] 
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Schwertgeschärfte 


Ohren 


Serie: Der Weg zum eigenen 
Rollenspiel-System 


Viele packende Stories schlummern noch verborgen 
in den hintersten Gehirnwindungen so manches 
“Bislang-noch-nicht-Programmierers“ und warten 
darauf, in einem Computer-Rollenspiel zum Einsatz 
zu kommen. Wir verhelfen Ihnen zu Ihrem ganz 
persönlichen Abenteuer. Diesmal geht es um die 
ersten programmtechnischen Schritte: Ihr Spiel¬ 
programm lernt, Texteingaben zu verarbeiten. 


Z u Anfang der 70er Jahre entwickelte der Ameri¬ 
kaner Gary Gygax aus der strategischen Militär- 
Simulation im Sandkasten-Diorama-’ein eigenes Spiel- 
System mit komplexen Regeln. Ihm ging es nicht mehr 
um die möglichst realitatsnahe Nachbildung berühmter 
Schlachten, sondern um eine Darstellung fiktiver 
Fantasy-Welten. 

Anstatt militärische Miniatur-Einheiten hin- und herzu¬ 
seh i eben. übernahm nun jeder Mitspieler die Rolle 
eines Helden. Um unterschiedliche Charaktere zu kenn-Ji 

zeichnen, wurden spezielle Eigenschaften nach Punk¬ 
ten bewertet. Klassische Ausprägungen sind etwa fjj 
Stärke. Ausdauer und Charisma. Um für eine gute 
Story und die Einhaltung der Spielregeln zu garantie¬ 
ren. schuf Gygax die Position eines Spielleiters. Das 
ganze System nannte er dann “Dungeons & Dragons”. 
Diese Urform aller heutigen Gesellschafts- wie auch 
Computer-Rollenspiele krankte jedoch besonders an - U 
dem Wust von Tabellen. Würfelorgien und Unmengen 
an Papierkram. Für fast jede Tätigkeit, jede Waffe, jede 
Situation gab es Besonderes zu beachten. Kaum ein 
Schritt konnte gewagt werden, ohne daß Spielleiter oder 
Mitspieler zum alles entscheidenden Würfel griffen. 

Auch heute gibt es besonders von eingefleischten Rollen¬ 
spielern bevorzugte Spiele, die nicht ohne einen Stapel 
Entscheidungstabellen und oft mit unterschiedlichen 
Würfelgarnituren gespielt werden. 

Teilweise wird dabei auch ein Rechner in Gesellschafts- ■£■ 
Roilenspiele integriert, um die Mitspieler vom Würfeln 
und dem endlosen Tabellenwerk zu entlasten. Entspre¬ 
chende “Unterstützungsprogrammc“ für Gruppenspiele 
wie "Dungeons & Dragons“ oder "Midgard“ gibt es 
inzwischen auf verschiedenen Computers^Sternen ^ 
bisweilen sind sie ihrer kleinen Zielgruppe wegen 
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als Public-Domain-Software freige¬ 
geben. 

Mit dem Aufkommen der ersten Heim¬ 
computer entwickelten sich aber auch 
langsam die vom Teamgedanken losge¬ 
lösten reinen Computer-Rollenspiele. 

Do it yourself 

In der letzten Folge unseres Rollen¬ 
spiel-Kurses haben wir gezeigt, wie 
man eine gute Story entwickelt. Heute 
geht es darum, diese Story auf dem 
CPC zu verwirklichen. 

Eine Möglichkeit, dem Rechner Züge, 
Situationen und Kommandos mitzutei¬ 
len. ist die Verwendung eines Parsers 
- also eines Programmoduls zur Text¬ 
analyse. 

Die einfachsten Parser beschränken 
sich bei Dialogen mit dem Spieler auf 
die Verarbeitung simpler Zwei-Wort - 
Befehle. Derartige Abfragen lassen 
sich durch einfache “IF...THEN“- 
Konstrukte in BASIC realisieren. 

Die nächste Leistungsstufe nach den 
simplen “SCHLAGE MONSTER “- 
Dialogen erreichen dann Parser, die 
auch schon komplexere Sätze mit Prä¬ 
positionen und mehreren Objekten ver¬ 
stehen. Sätze wie “NIMM DIE KRO¬ 
NE UND BENUTZE DAS 
SCHWERT“ sind ja auch schon last 
Umgangssprache und können von bes¬ 
seren Algorithmen durchaus entschlüs¬ 
selt werden. 

Neben einer ausgefuchsten Satzanalyse 
gehört auch ein der Story entsprechen¬ 
der Wortschatz zu einem guten Aben¬ 
teuer. Bei Rollenspielen fällt die 
Sprachbibliothek meist etwas beschei¬ 
dener aus als bei echten Text- oder 
Grafikadventures. Geht es dort viel¬ 
fach darum, eine vorgezeichnete Hand¬ 
lung durch Erraten und korrektes For¬ 
mulieren der “richtigen“ Reaktionen 
weilcrlaufen zu lassen, so lebt das Rol¬ 
lenspiel meist von den spontanen Ent¬ 
scheidungen seiner Charaktere und 
kommt dafür mit weniger rätselhaften 
oder komplexen Tätigkeiten aus. 

Satzanalyse 

Die Eingabe von ganzen Sätzen ist 
beim BASIC der CPCs kein Problem. 
Über die “LINE INPUT“-Routine las¬ 
sen sich ohne große Umstände Strings 
einiesen. 

200 ... 

210 LOCATE 1,1 

220 LINE TNPUT “Was nun? 1$ 

230 ... 

Das nächste Problem ist die Wortsepa¬ 
rierung innerhalb eines Satzes. Bevor 
wir nun Stück für Stück den Satz in ein¬ 


zelne Wörter zerlegen, empfiehlt cs 
sich, alle Kleinbuchstaben in Groß¬ 
schrift umzuwandeln. Auch hierfür 
hält das C’PC-BASIC eine komfortable 
Funktion bereit: 

200 REK KLEIN-> GROSS 
210 LOCATE 1,1 

220 LIME INPUT “Was nur.? t$ 

230 t$ = UPPERS (t$) 

Bei Systemen, die “ß“ unterstützen, 
muß dabei außerdem eine Umwand¬ 
lung in “ss“ vorgenommen werden, 
um groß und klein geschriebene Einga¬ 
ben wirklich gleich behandeln zu 
können. 

Der nächste Schritt ist die Zerlegung 
des Satzes in einzelne Wörter. Hier 
sollten wir dem Parser etwas “Intelli¬ 
genz“ spendieren und nicht nur auf 
Leerzeichen als Trennfuge zwischen 
Wörtern untersuchen. Die Ausschluß¬ 
regel führt zu besserem Erfolg. Ist ein 
Zeichen kein Buchstabe, so postulieren 
wir. daß es sich wohl um ein Trennzei¬ 
chen handeln muß. 

Das Ergebnis dieser Überlegungen ist 
das Listingfragment, das wir im Kasten 
abgedruckt haben. Mit dieser kleinen 
Routine ist es möglich, die Anzahl aller 
in einem Satz vorkommenden Wörter 
zu ermitteln und die einzelnen Worte 
entsprechend abzutrennen. 

Wie kommt man nun aber von einem 
solchen Sammelsurium einzelner Be¬ 
griffsfragmente zu einer sinnvollen 
Satzauswertung? 

Erkenne meine Worte 

Der nächste Schritt besteht darin, die 
so als Einzelworte erkannten Begriffe 
mit dem im Programm verankerten 


Wortschatz zu vergleichen. Bei kleinen 
Wortschätzen lassen sich die verwen¬ 
deten Begriffe noch ganz gut in DATA- 
Zeilcn unterbringen. Im Zweifelsfall 
empfiehlt sich die externe Auslagerung 
auf Diskette, wobei möglichst immer 
Wortpakete oder Gruppen zur Auswer¬ 
tung zu laden sind. Würde man jedes 
Wort einzeln in den Arbeitsspeicher la¬ 
den und dort mit dem Eingabewort ver¬ 
gleichen. entstünden für den Spieler 
unzumutbare Wartezeiten. Bei Rollen¬ 
spielen und auch als allgemeine Unter¬ 
stützung für Gralik-Adventures reicht 
in den meisten Fällen ein kleiner, über 
DATA-Zeilen ins Programm integrier¬ 
ter Wortschatz aus. 

Um nun sinnvoll Worte zuordnen zu 
können, muß der jeweilige Wortschatz 
in einer fest definierten Struktur vorlie¬ 
gen. Hier gibt es sicher viele Möglich¬ 
keiten. wobei unser Vorschlag sich nur 
als Beispiel versteht. Wir teilen die ar¬ 
chivierten Begriffe in fünf Gruppen 
auf: 

• Objekte 

Als Objekte werden alle Dinge im Pro¬ 
gramm bezeichnet, mit denen der Spie¬ 
ler agieren kann. Neben dem reinen 
Begriff sind unter Umständen auch Va¬ 
riablen für Position, Status (leere oder 
volle Flasche) sowie Gewicht und si- 
tuationsbedingte Aktionen an das Wort 
zu knüpfen. So gibt es in fast jedem 
Rollenspiel zumindest eine Schatztru¬ 
he. Der in dieser Truhe liegende Ring 
sollte aber tunlichst erst sichtbar wer¬ 
den, wenn ein Heroe sich mit dem rich¬ 
tigen Schlüssel an dem Schloß der Tru¬ 
he versucht hat, und nicht vorher. Mit 
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Die Skizze zu dem im Text verwendeten Beispiel Jur eine Lageplanctxlie- 
nutg. Jede Verbindung zwischen zwei Räumen läßt sich als numerische Va¬ 
riable eines zweidimensionalen Feldes formulieren. Endet eine Bewegung 
in “Raum 0", so wird sie schlicht und einfach nicht ausgeführt 


(verschlossen) 


Das im Text erwähnte Programm "F.liza" hat im Laufe seiner Entwick¬ 
lungsgeschichte schon seltsame Blüten getrieben: liier taucht es als "einge¬ 
bettetes“ Spiel auf - es “läuft“ auf einem simulierten Mini-PC innerhalb 
eines beliebten Krankenhaus-Simulationsspiels 



? 1 UKE TO ULPRTCH PEOPLE UNDRESSING. 


? IN ANV WAV. 


? BO VOU REALLV THINK I SHOULD? 

m WEBE DISCÜSSIN8 VM, Nil ML 

? NO, NO. 

mm d8es nun soweit to voo? 

? I AM ILIGHTLV C0NFUSED._ 


einem auf gut Glück abgesetzten 
“Nimm Ring“ bei geschlossener Truhe 
sollte man bestenfalls ein “Netter Ver¬ 
such. du brichst dir die Fingernägel“ 
erzielen. 

Eine gute Idee ist es, für Standard-Be¬ 
griffe wie “nimm“, “sieh“ oder 
“schlag“ Synonyme und Abkürzungen 
zu erlauben. Selbst dem geduldigsten 
Abenteurer wird nach ein paar Stunden 
das kurze “ni Rüstung“ lieber sein als 
die Langversion des Dialogs. 

In Data-Zeilen könnte man eine derar¬ 
tige Struktur wie folgt aufbauen: 

HEM OBJEKTNAHE, RAUM, SICHT, ZUGRIFF 
DATA SCHWERT, 1, 2, 4 

Die jeweiligen Zahlenwerte stehen 
dann enstprechend für verschiedene 
Räume und Objektzustände. 

• Verben 

Außer dem jeweiligen Verb sollte diese 
Struktur auch Namen mit jeweils glei¬ 
cher Bedeutung enthalten. Es gibt tau¬ 
send verschiedene Möglichkeiten, ein 
und dieselbe Aktion mit unterschiedli¬ 
chen Worten darzustellen. Um hier 
langfristigen Spielspaß zu garantieren, 
sollte ein Gegner nicht nur nach 
“SCHLAG DAS MONSTER“, son¬ 
dern auch über “HAU DAS MON¬ 
STER“ oder für die Feinschmecker mit 
“BEISS DAS MONSTER“ zu über¬ 
winden sein. 

Sehr elegant kann man solche Doppel¬ 
bedeutungen verbinden, indem etwa 
für unser Beispiel “SCHLAG“, 
“HAU“ und “BEISS“ mit einem stell¬ 
vertretenden. identischen Wert (“To¬ 
ken“) gekennzeichnet werden. Inner 


halb des Programms wird dann nicht 
mehr mit den tatsächlichen Begriffen, 
sondern nur noch mit deren “Stellver¬ 
tretern“, also den Verben-Wcrten, ge¬ 
arbeitet. Diese haben den Vorteil, daß 
man damit rechnen kann. So lassen 
sich dann etwa bei Bedarf Gruppen 
nicht absolut gleicher, aber verwandter 
Befehle mit “Größer“- und “Klei- 
ner“-Berechnungen zusammenfassen. 

Für jedes Token müssen zusätzlich die 
erlaubten Objekte abgespeichert wer¬ 
den. Unsinnige Aktionen wie “BEISS 
DIE LUFT“ können dann über einen 
simplen Standard-Weg mit einem 
“DAS GEHT NICHT“ ohne große Lo¬ 
gik beantwortet werden. 

• Präpositionen 

Präpositionen dienen im Deutschen 
dazu, räumliche oder zeitliche Bezüge 
anzudeuten. Klassische Präpositionen 
im Spiel sind “neben“, “auf“, “unter“, 
“zwischen“, “hinter“ und “in“. 

Die Präpositionen sollten ähnlich wie 
Verben auch über einen Code ange¬ 
sprochen werden, um Doppelbedeu- 
tungen abzufangen und Objektbezüge 
herstcllen zu können. 

• Orte 

Räume und Positionen spielen nur im 
Zusammenhang mit Verben oder Prä¬ 
positionen eine Rolle. Zu ihrem Na¬ 
men oder Bezeichner sollte man mögli¬ 
che Richtungsangaben in Bezug 
bringen. 

Man könnte beispielsweise ein Varia¬ 
blenfeld namens “RICHTUNG“ defi¬ 
nieren, welches die jeweils mögliche 
Marschrichtung speichert oder besser 
den als nächstes erreichbaren Ort ver¬ 
merkt. Soll man von einer bestimmten 


Stelle aus nicht weiterkommen, weil 
etwa Felsen oder Abgründe den Weg 
versperren, wird für das Hindernis 
einfach ein “toter“ Raum definiert. 
Beispiel: Setzen wir für die vier Wind¬ 
richtungen jeweils Werte von “ I “ für 
Norden bis “4“ für Westen. Der tote 
Raum bekommt den Wert "0“. In ei¬ 
nem zweidimensionalen Array “RICH- 
TUNG(X,Y)“ legen wir nun die geo¬ 
grafischen Möglichkeiten fest. Von der 
Folterkammer (Raum 2) gelangt man 
ins Schlafzimmer (Raum 5), indem 
man nach Norden (Richtung I) geht. 
Somit muß “RICHTUNG(2,1)‘‘ den 
Wert “5“ enthalten und umgekehrt 
“RICHTUNG(5,3)“ nach Süden 
(Richtung 3) hin den Wert “2“ für die 
Folterkammer. 

Die allgemeine Form des beschreiben¬ 
den Arrays wäre also: 

RICHTUNG(aktueller Raum, Marschrich¬ 
tung) = nächster Raum 

• Sonstiges 

Unter “Ferner liefen“ sollte man alle 
durch bisherige Gruppen nicht abge¬ 
deckten Begriffe speichern.*Neben di¬ 
rekten Spielanweisungen wie etwa 
“Spielstand laden“ oder “Spiel been¬ 
den“ können das auch Kurzformen 
häufig benutzter Anweisungen wie bei¬ 
spielsweise “Norden" oder “Inventur“ 
sein. Auch Funktionen wie “Flieh“ 
und “Hilfe“ haben hier ihren Platz. 
Dieses Sammelbecken von Begriffen 
sollte in einer gesonderten Tabelle ge¬ 
führt werden. 

Durch die Eigenart dieser Eingabe- 
Kommandos kann man noch ein beson¬ 
deres Schmankerl ins Programm 
bringen, und zwar den sogenannten 
"Eliza“-Effekt. 
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“Eliza" ist inzwischen ein echter Soft¬ 
ware-Klassiker und führt auch in unse¬ 
rer heutigen computerverwöhnten Zeit 
immer noch zu Erstaunen und Stirn¬ 
runzeln. Dieses Primitiv-Programm, 
das es auf allen möglichen Computer¬ 
systemen vom Großrechner bis zum 
Atari 800 gibt, täuscht nämlich mit 
sehr einfachen Mitteln Intelligenz vor. 
Es beantwortet mit Hilfe simpler Algo¬ 
rithmen jede Eingabe des Benutzers 
mit einer an bestimmten Bestandteilen 
aufgehängten Phrase, die wiederum 
gezielte Reaktionen weitgehend aus- 
schließen muß. “Eliza“ formt so einen 
tatsächlichen Monolog des Benutzers 
in einen Dialog um. Der Betrachter 
glaubt dann, sich mit dem Rechner zu 
unterhalten, obwohl im Prinzip nur die 
eigenen Worte durch hohle Phrasen 
verkleidet zurückgegeben werden. 

“Eliza“-Programme kennen nämlich 
im Grunde genommen bloß Standard- 
Reaktionen auf eine kleine Liste be¬ 
stimmter Stichworte. Die tatsächlichen 
Satzinhalte sind dem '‘Dummpatz“ von 
Programm völlig unbekannt. Gibt man 
beispielsweise “Gib mir eine Taschen¬ 
lampe“ ein, so könnte ein einfacher 
“Eliza“-Algorithmus mit “Du hättest 
also gern so etwas wie eine Taschen¬ 
lampe?“ antworten. Das würde auch 
hervorragend bei "Hilfe“. “Waffen“ 
und anderen Objekten funktionieren. 

Überraschungen 

Nun kennt man ja seine Pappenheimer. 
Irgendwann entfährt auch dem fried¬ 
lichsten Abenteurer ein deftiges 
Schimpfwort. So etwas gehört natür¬ 
lich vom Parser abgefangen und witzig 
beantwortet. “Ausnahmen“ dieser Art 
erhöhen den Spielspaß und täuschen 
oftmals über das tatsächlich schemati¬ 
sche Vorgehen eines Programms 
hinweg. 

Eine Überraschung der unangenehmen 
Art kommt auf Spieler w ie auch Pro¬ 


grammierer zu, wenn gleiche Begriffe 
mit unterschiedlichen Bedeutungen 
auftreten. Anstatt zu einer "kleinen“ 
und “großen“ Axt zu greifen, sollte 
man deshalb lieber gleich die Begriffe 
“Streitaxt“ und “Beil“ einführen. 

Die eigentliche Auswertung und Prü¬ 
fung der bekannten Worte kann auf 
vielerlei Weise Vorgehen. Wir empfeh¬ 
len, zuerst einmal auf Vollständigkeit 
des eingegebenen Satzes zu überprü¬ 
fen. Er sollte also zumindest ein 
Schlüsselwort, ein Verb und ein Objekt 
enthalten. Ist dies nicht der Fall, bietet 
sich zum “Abwimmeln“ der unbrauch¬ 
baren Eingabe noch die erwähnte “Eli- 
za“-Methode an — oder einfach eine 
barsche Fehlermeldung. 

Des weiteren sollte eine situationsab- 
hängige Prüfung erfolgen. Unter diese 
Prüfung fallen Bedingungen wie “Ver¬ 
fügt der Spieler über genügend Geld, 
um eine Axt zu kaufen?“ oder “Ist die 
Tür, die der Spieler öffnen möchte, 
schon mit dem Schlüssel geöffnet wor¬ 
den?“. Auch Objekte, die schon einmal 
im Spiel auftauchten und jetzt jedoch 
unerreichbar in anderen Räumen 
schlummern, müssen berücksichtigt 
werden. 

Schöne Aussichten 

Zum Abschluß noch ein paar “golde¬ 
ne" Grundregeln für die eigene Parser- 
Programmierung. “Lebenswichtig“ 
sind vor allen Dingen die Zerlegungs¬ 
und Interpretations-Prozeduren. Nach 
der Entwicklung der Story 11 geholt ein 
brauchbarer. eindeutig passender 
Wortschatz zu jedem guten Parser. 

Auch wenn cs für Ablaufgeschwindig- 
keit und Platzbedarf des Programms 
Besseres geben sollte: Die nötigen 
DATA-Zeilen gehören der Übersicht¬ 
lichkeit halber ans Ende des Pro¬ 
gramms und sollten jeweils nicht zum 
Brechen vollgestopft werden. Es ist 
besser, ein paar DATA-Statements 


mehr zu setzen und dafür beim Ändern 
des DATA-Materials ein bißchen Platz 
für längere Stichworte in der Zeile zu 
behalten. Und geändert wird auf jeden 
Fall - mehr als einmal und an mehr als 
einem DATA-Statement. Verlassen 
Sie sich drauf. 

Überlassen Sie auch die Abgrenzung 
einzelner DATA-Bereiche voneinan¬ 
der nicht der berühmten Zeilennummer 
in Verbindung mit RESTORE. We¬ 
sentlich professioneller ist eine jeweils 
für die einzelnen Wortgruppen spezifi¬ 
sche Ende-Kennung in der DATA-Rei- 
he, verbunden mit einer Ende-Abfrage 
beim READen. Eine solche Konstruk¬ 
tion erleichtert die Ergänzung des 
Wortschatzes (ist grundsätzlich fällig!) 
sowie die allgemeine Übersicht (sollte 
man nicht unterschätzen!). 

Soviel also zur Verarbeitung von Text¬ 
eingaben. Heutzutage wird allerdings 
für Rollcnspiele nur selten eine reine 
Parsersteuerung verwendet. Meistens 
arbeitet ein guter Parser im Verbund 
mit grafisch gestützter Joystick- oder 
Maussteuerung, um die einzelnen 
Spielfiguren agieren zu lassen. Und um 
agieren zu können, braucht man ein 
Spielfeld — eine "map“, um mal wie¬ 
dereinen Fachausdruck fallenzulassen. 
Unseren Heroen einen hübschen Le¬ 
bensraum zu spendieren, soll denn 
auch Thema der nächsten Rollenspiel- 
Folge sein. Alsdann — schärfen Sie für 
diesmal mit dem Schwerte des Parsers 
die “Öhren“ Ihres Programms. Beim 
nächsten Mal sollen dann auch die Au¬ 
gen zu ihrem Recht kommen. 

Ulrich Schmitz/sz 


Literatur: 

" Ulrich Schmitz: Programmierte Traum¬ 
welten. CPC Amstrad International 
10/11 '91. S. 35-38 

21 Karlheinz Herzig: Der Sandkasten, Vertag 
Offene Worte, Bonn 


100 ... 


330 GOTO 390 

110 Start = 1 


340 REM WORTTRENNER ERKANNT 

120 worte = 1 


370 IF MID$(t$,i-1, i) > = “A“ AND 

130 ... 


,MID$( t$, i-1, i) <= “Z“ THEN 

200 REM KLEIN -> GROSS 


wort.$(worte) = >1ID$(t$,start, ((i-l)-start)) 

210 LOCATE 1,1 


360 IF MID$(t$, i+1, i) >= “A“ AND 

220 LINE INPUT “Was nun? L$ 


M 1 (t$, i+l, i) < = “Z“ then 

230 t$ = UPPERS (t$) 


worte = worte + 1 : 

2k0 ... 


start = i + 1 

300 REM W0RT-SEPARIEHER 


370 ... 

310 F0R T = 1 TO LEN {t$) 


390 NEXT I 

320 IF MID$(t$, 1, i) < “A“ 0R 


400 PRINT “Insgesamt (worte); 

MID$(-$,i,i) > “Z“ 


“ Worte im Satz gefunden.“ 

THEN GOTO 340 


410 ... 
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“Alkatrax“- 

Codierprogramm 

Binärdateien leicht verschlüsselt 

Das Thema Datenschutz ist schon seit den Kindertagen der Computer in 
aller Munde. Eine wichtige Maßnahme ist das Unlesbarmachen von Daten 
Bisher konnte man nur auf dem CPC Datenfiles oder BASIC-Programme 
verschlüsseln. Wir stellen eine Möglichkeit vor, nun auch Maschinenpro¬ 
gramme vor fremdem Zugriff zu schützen. 


Bisher gab es schon eine ganze Menge 
Codierprogramme, die jedoch alle be¬ 
stimmte Nachteile halten. 

Entweder das Programm codiert mit ei¬ 
nem Codewort, welches man leicht 
vergessen kann (außerdem muß man 
jedesmal wieder mit diesem Wort de¬ 
codieren lassen), oder in einem Basic- 
Programm werden Zeilen durch Über¬ 
länge, falsche Zeilennummern und so 
weiter geschützt. 

Eine weitere Möglichkeit eines Kopier¬ 
schutzes ist, daß das Directory unsicht¬ 
bar gemacht wird. Einfache Abhilfe: 
Diskmonitor, Directory Editor ... rein¬ 
laden, Directory ändern, fertig. Alles 
wieder da. Aber warum eigene, wir¬ 
kungslose und unbrauchbare Schutzar¬ 
ten ausdenken, wenn man nur bei den 
Profis schauen muß. Und genau das ist 
der mit Sicherheit wirkungsvollste 
Schutz, wie Sie gleich nach einer Er¬ 
klärung erkennen können. Vorab noch 
eine kurze Information: Selbst der Ent¬ 


wickler dieses Schutzes brauchte für 
ein normal geschütztes Programm vier 
bis zwölf Stunden (je nach Länge des 
Schutzes)!!! Nun folgen einige Infor¬ 
mationen über diesen Kopierschutz 
und seine Arbeitsweise: 

Jedem Computerbesitzer ist das Wort 
Kopierschutz ein bekannter BegrilTfso- 
fern er Originalsoftware benutzt und ver¬ 
sucht hat, sie zu kopieren). Aber wie 
funktioniert ein Kopierschutz? 

Die Grundlage ist eine mit einem Spc- 
zialformat formatierte Diskette. Dieses 
Format ist meist nur schwer zu kopie¬ 
ren. Das gesamte Programm ist dabei 
nicht als File abgespeichert, sondern 
direkt auf Diskette geschrieben. Um es 
einzulesen, wird eine Trackladeroutine 
aufgerufen, die das Programm von den 
Tracks in den Speicher liest. Wenn 
man diese Laderoutine, die oft sehr 
kompliziert ist, ungeschützt vorliegen 
hat, ist es meistens ein Leichtes (für 
Assembler-Kundige!), das Programm 


einiesen zu lassen und als File normal 
abzuspeichern. Auf diesem Prinzip be¬ 
ruht übrigens das Cracken von Origi¬ 
nalsoftware: 

Man versucht also an den Lader heran¬ 
zukommen. Doch dies ist wirklich sehr 
schwer. Da die Programmierer natür¬ 
lich nicht wollen, daß man leicht an 
diese Laderoutine kommt, verschlüs¬ 
seln sic diese mit zirka 60 bis 300 Co- 
dicrschleifen. Jetzt werden Sie fragen, 
was sind Codierschleifen und w'ie funk¬ 
tionieren sie ? So arbeiten diese Co¬ 
dierschleifen in Assembler : 

Codierschleifen 

Ein Register, meist HL, zeigt auf das 
erste Byte hinter dieser gerade “akti¬ 
ven“ Schleife. In BC oder DE steht die 
Anzahl der Bytes, die decodiert oder 
codiert werden sollen. Dann wird das 
Byte in HL eingelesen, verknüpft und 
wieder zurückgeschrieben. HL wird 
erhöht, DE beziehungsweise BC er¬ 
niedrigt. Diese Prozedur wird so lange 
wiederholt, bis der Zähler (DE oder 
BC) gleich 0 ist. 

Dann ist die nächste Schleife decodiert, 
und die darauffolgenden sind “etwas“ 
decodiert. Bei dieser und den nächsten 
Schleifen geht’s genauso weiter, wie 
eben gezeigt. Als Beispiel dient hier die 
Beispielroutine. 

Nachdem die erste Schleife n mal (n = 
laenge) durchlaufen ist, steht die dar¬ 
auffolgende decodiert, also im Format 
w'ie die erste im Speicher und wird au¬ 
tomatisch ausgeführt, weil ja nach dem 
letzten Befehl der ersten Schleife die 
zw'-eite gleich beginnt. Und so geht das 
dann immer weiter, bis alle Schleifen 
beendet sind und das Programm richtig 
im Speicher steht. 

Damit aber Programmcode decodiert 
werden kann, muß er vorher codiert 
werden. Man läßt den Vorgang also 
rückwärts ablaufen: 


Combat School 
Gryzor 

Trantor - The Last Slormtrooper 
Human Killing Machine 
Thunder Blade 
Sonic Boom 

Die Arche des Caplain Blood 
Street Fighter 
Last Ninja 2 
Summer Games 1 +2 
Crackdown 

Heath Wave (Compilation) 

Arcade Muscles (Compilation) 

10 MEGA Games (Compilation) 

Diese Programme benutzen zum Beispiel den 
vorgestellten Kopierschutz. 
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Know-how 


begin 

LD HL,Start 

;Beginn der De - Codierung 

BASIC : HL = Start 


LD BC.Iaenge 

jlaenge = ende - Start + 1 

BASIC : BC = laenge 

loop 

LD A,(HL) 

;Wert aus HL holen 

BASIC: A = PEEK (HL) 


XOR wert 

verknüpfen (wert:0-255) 



LD (HL).A 

verknüpften Wert in HL sehr. 

BASIC : POKE HL. A 


INC HL 

;HL um eins erhöhen 

BASIC : HL = HL + 1 


DEC BC 

:BC um eins erniedrigen 

BASIC :BC = BC - 1 


LD A.B 

;Test, ob BC = 0 

BASIC : A = B 


ORC 

;Dazu wird B mit C geORt 

BASIC: A = AORC 


JR NZ.Ioop 

;Nicht 0 ? Dann nochmal 

BASIC : IF A< >0 THEN loop 


Beispiel für die (De)Codierune eines Binärfiles. Anschließend folgt das Programm. 


Zuerst beginnt man mit der letzten 
Schleife bei der Codierung, dann bei 
der vorletzten und so weiter bis hin zur 
ersten. Nun steht alles geXORt im 
Speicher. Das Schwierige am Cracken, 
dem Hacken der Schleifen, ist aber, 
daß es so unwahrscheinlich viele Sor¬ 
ten davon gibt. Es werden insgesamt 
zirka fünfzig Typen verwendet. Aber 
wir wollen ja nicht cracken, weil wir 
keine Raubkopierer sind. Wozu aber 
dann die ganzen Erklärungen ? 

• weil man so die Funktionsweise ei¬ 
nes Kopierschutzes durchschauen 
kann, 

• weil man so einsehen kann, daß dies 
der sicherste Kopierschutz überhaupt 
sein muß und 

• weil dadurch die Funktionsweise 
meines Codierprogrammes anschau¬ 
lich wird! 

Funktionsweise des Programmes: 

Nach dem Start werden Sie nach dem 
Namen des zu codierenden Program¬ 
mes (nur Binärprogramme) und dessen 


Startadresse gefragt. Die Originalstart¬ 
adresse muß hierbei unbedingt beibc- 
halten werden! Dann kommt eine Ab¬ 
frage nach der Anzahl der Schleifen. 
Geben Sie hier einen Wert zwischen I 
und X ein. X sollte nicht zu groß sein, 
da sonst der Speicherplatz nicht rei¬ 
chen würde. Aber vierzig Schleifen 
wären sicher schon genug. 

Und dann geht's auch schon los! Das 
Programm wird codiert. Je nach Länge 
und Anzahl der Schleifen dauert dies 
einige Zeit; bei einer Länge von 4096 
Bytes und einer Schleifenanzahl von 
vierzig zum Beispiel 45 Sekunden. Da¬ 
nach werden Sie aufgefordert, eine Ta¬ 
ste zu drücken. Das fertige Produkt 
wird als CODE.BIN abgespeichert. 
Falls keine Abspeicherung gewünscht 
ist, drücken Sic einfach zweimal die 
Escape-Taste. Das folgende kurze Pro¬ 
gramm veranschaulicht eine Codie¬ 
rung: 

FOR X=&4000 TO &5000:P0KE X,&C9:NEXT 

Danach das Codierprogramm starten. 


bei NAME bitte RETURN drücken, 
damit kein Programm geladen wird. 
Als Startadresse &400Ü. als Endadres¬ 
se &5000. Danach merken Sie sich bit¬ 
te die neue, vom Programm angegebe¬ 
ne Startadresse. Danach sehen Sie sich 
den Speicher von &4000 bis &5000 
wie folgt an: 

FOR X=&4000 TO &5000:? HEX$(PEEK(X))“ 
";:NEXT 

Jetzt müßten lauter verschiedene Werte 
ausgegeben werden. Das sind die co¬ 
dierten Bytes. Dann rufen Sie die neue 
Startadresse auf, die Sie sich gemerkt 
haben, mit: CALL neue Startadresse . 
Jetzt schauen wir nochmal den Spei¬ 
cher an: 

FOR X=&4000 TO &5000:? HEX${PEEK(X))" 
:NEXT 

Der alte Wert &C9 steht jetzt wieder 
da. Wenn Sie ein Programm schützen, 
dann bitte nur ein Programm, welches 
selbständig lauffähig ist. also mit CALL 
adresse aufgerufen werden kann, und 
keine Grafik oder etwas in dieser Rich¬ 
tung. Viel Spaß beim Verschlüsseln. 


Anmerkung: Die Erklärungen verlan¬ 
gen eine gewisse Vorkenntnis in der 
Programmiersprache Assembler. Aber 
auch Assembler-Unkundige können das 
Prinzip verstehen, nicht aber die Erklä¬ 
rung der Codierschlei len, was für die 
Benutzung des Programmes nicht erfor¬ 
derlich ist! 


Klaus Meffert/rs 


10 'CODIER.LDR [777] 

20 'Generiert PROGRAMM.BIN fuer das [2821] 

30 'Alkatraz Protection System [2837] 

40 '(C) 1991 Klaus Meffert [435] 

50 ' & CPC Internationl [1846] 

60 ' [117] 

70 FOR i=&AF00 TO &AFBF [1282] 

80 READ a$:W=VAL("&H"+a$) [880] 

90 s=s+w:POKE i,w:NEXT [1039] 

100 IF so 21056 THEN PRINT "Fehl er" :END [2570] 

110 SAVE"codier.bin",b,&AF00,SCO:END [2169] 

120 DATA 3E,08,32,2C,AF,21,F0,3F [903] 

130 DATA 01,10,02,C5,7E,57,3A,2C [856] 

140 DATA AF,5F,06,09,3C,FE,80,C2 [1399] 

150 DATA IC,AF,D6,80,10,F6,32,2C [1607] 

160 DATA AF,7B,AA,77,23,CI,0B,78 [961] 

170 DATA B1,20,E0,C9,18,01,00,00 [975] 

180 DATA 16,00,21,00,00,01,00,00 [1422] 

190 DATA 5E,7B,AA,77,53,OB,23,78 [1593] 

200 DATA Bl,C2,38,AF,C9,3E,09,32 [1319] 

210 DATA F0,AF,21,30,40,01,10,00 [1439] 

220 DATA 3A,F0,AF,C5,57,06,0D,3C [1530] 

230 DATA FE,80,C2,5F,AF,D6,80,10 [1722] 

240 DATA F6,32,F0,AF,7E,AA,57,3A [1499] 

250 DATA Fl,ÄF,AÄ,57,3A,F2,AF,AA [1124] 

260 DATA 77,00,00,23,CI,OB,78,Bl [1965] 

270 DATA C2,50,AF,C9,3E,0A,32,2D [350] 

280 DATA AF,21,45,87,01,02,02,FD [1586] 

290 DATA 21,FF,3F,C5,3A,2D,AF,FD [1724] 

300 DATA AE,00,AC,AD,FD,77,00,OB [1150] 

310 DATA 2B,FD,23,3A,2D,AF,06,0F [1815] 

320 DATA 3C,FE,80,C2,A8,AF,D6,80 [1378] 

330 DATA 10,F6,32,2D,AF,C1,OB,78 [751] 

340 DATA Bl,C2,8B,AF,C9,FF,FF,FF [1569] 

350 DATA 00,00,00,00,FF,FF,FF,FF [1667] 


10 '************************************ 

20 '*Special Alkatraz Protection System* 

30 '*Version 2.0 (c) 1991 Klaus Meffert* 

40 '* & CPC International * 

50 '************•************************ 

60 'Dieses Programm erstellt einen Kopier- 
70 'schütz, wie er bei komerzieller Soft- 
80 'wäre verwendet wird. 

90 ' 

100 'Vorbereitung 
110 LOAD"codier.bin",&AF00 
120 zyk=6:var=0:stufe =0 
130 'Kopfzeile ausgeben 
140 MODE 2 

150 PRINT STRINGS(80,"*"); 

160 PRINT" ALKATRAZ PROTECTION SYSTEM 
(c) 1991 Klaus Meffert & CPC International 

ii 

170 PRINT STRINGS(80,"*") 

180 'Eingaben 

190 INPUT"Programmname : ",name$ 

200 IF name$="" THEN 230 

210 INPUT"Startadresse : ",adr 

220 MEMORY adr-l:LOAD ""+name$,adr 

230 lNPUT"Wieviele Schleifen : ",loops 

240 'Variablen entsprechend den Eingaben d 

imensionieren 

250 DIM a$(40),art(loops),lo(loops-l),hi(1 
oops-l),lo 2 (loops-l),hi 2 (loops-l) 

260 DIM zy(loops-l),wert(loops-l),typ(loop 
s-1),lo3(loops-l),hi3(loops-l) 

270 PRINT"Welcher Bereich soll codiert wer 
den ? 

280 INPUT"Von : ",anfang 
290 INPUT"Bis : ",ende 


[1383] 

[2073] 

[1926] 

[966] 

[1383] 

[3011] 

[3307] 

[1653] 

[117] 

[643] 

[1692] 

[1965] 

[1933] 

[513] 

[1398] 

[5873] 


[1446] 

[1013] 

[2404] 

[393] 

[2868] 

[349] 

[3421] 

[3262] 

[4750] 

[5846] 

[2969] 

[2117] 

[768] 


12’91/1 ’92 CPC 81 


















Know-how 



300 FOR X=1 TO loops 
310 art(x) = INT(RND*5) + l. 

320 NEXT 

330 'Benoetigten Speicher berechnen 
340 aut=l:space=anfang-l 
350 laenge=ende-space+l 

360 IF laenge<0 THEN laenge=laenge+65536 
370 LOCATE 1,6:FOR X=1 TO 6:PRINT SPACES(8 
0);:NEXT 

380 PRINT:FOR X=1 TO loops 
390 IF art(x)=l THEN space=space-l8 

400 IF art(x)=2 THEN space=space-16 

410 IF art(x)=3 THEN space=space-25 

420 IF art(x)=4 THEN space=space-28 

430 NEXT 

440 space=space-6:begin=space 
450 IF space<&lC50+loops*50 THEN LOCATE 1, 
25:PRINT" Achtung - Zu wenig Spe 

icher - Bitte eine Taste druecken ! ":CALL 
&BB06:RUN 120 
460 laenge=ende-space+l 

470 IF laenge<0 THEN laenge=laenge+65536 
480 'Dateiinformationen ausgeben 
490 LOCATE 55,5:PRINT"Start :"HEXS(space, 
4):LOCATE 55,6:PRlNT"Laenge :"HEXS(laenge+ 
57,4):LOCATE 55,7:PRINT"Ende :"HEXS(ende 
+57,4) 

500 gesamt=laenge+space 

510 GOSUB 1350:RESTORE 1450:FOR x=l TO 7:R 
EAD a$:POKE space,VAL("&"+a$) 

520 space=space+l:NEXT 

530 GOSUB 1350:LOCATE 1,12:PRINT"Loop Nr.: 
":FOR zaw=l TO loops:LOCATE 10,12:PRINT za 
w 

540 ON art(zaw) GOSUB 760,890,1020,1170 
550 NEXT 

560 GOSUB 1350:RESTORE 1 470 : spa=ende+l. 

570 READ a$:FOR X=1 TO LEN(a$) 

580 POKE spa,ASC(MID$(a$,x,l)):spa=spa+l:N 
EXT 

590 'Programm codieren 

600 GOSUB 1350:PRINT:PRINT:PRINT"Codiere 
Bitte warten !!!!" 

610 FOR X=var-1 TO 0 STEP -l:ON typ(x) GOS 
UB 680,700,720,740 
620 NEXT 

630 LOCATE 1,24:PRINT"Neue Startadresse : 
"HEX$(begin) 

640 PRINT" Bitte die Sicherungsdis 

kette einlegen und eine Taste druecken":CA 
LL &BB06 

650 SAVE"code",b,begin,laenge+57,start 
660 END 

670 'Codieren mit Typ 1 

680 POKE &AF33,lo(x):POKE &AF34,hi(x):POKE 
&AF36,lo2(x):POKE &AF37,hi2(x):POKE &AF31 
,wert(x):CALL &AF30:RETURN 
690 'Codieren mit Typ 2 

700 POKE &AF06,lo(x):POKE &AF07,hi(x):POKE 
&AF09,lo2(x):POKE &AF0A,hi2(x):POKE &AF01 
,zy(x):CALL &AF00:RETURN 
710 'Codieren mit Typ 3 

720 POKE &AF4B,lo(x):POKE &AF4C,hi(x):POKE 
&AF4E, lo2 (x) : POKE S-AF4F,hi2 (x) : POKE &AF46 
,zy(x):POKE &AFF1,lo3(x):POKE &AFF2,hi3(x) 

:CALL &AF45:RETURN 
730 'Codieren mit Typ 4 

740 POKE &AF7D,zy(x):POKE &AF89,lo(x):POKE 
&AF8A,hi(x):POKE &AF85,lo2(x):POKE &AF86, 
hi2(x):POKE &AF82,lo3(x):POKE &AF83,hi3(x) 
:CALL &AF7C:RETURN 
750 END 
760 'Typ 1 

770 lo=0:hi=0:wert=INT(RND*65)+l:wert(var) 

=wert:merk=space:RESTORE 1370 

780 FOR x=1 TO 18:READ a$(x):POKE space,VA 

L("&"+a$(x)):space=space+1:NEXT 

790 POKE merk+7,wert 

800 space=space-l:hi=INT(space/256):lo=spa 
ce-hi*256:IF hi<0 THEN hi=256+hi 
8i0 POKE merk+l,lo:POKE merk+2,hi 
820 lo(var)=lo:hi(var)=hi 

830 zahl=ende-space+l:hi=INT(zahl/256):lo= 

zahl-hi*256:IF hi<0 THEN hi=256+hi 

840 POKE merk+4,lo:POKE merk+5,hi 

850 lo2(var)=lo:hi2(var)=hi:zyk=zyk+(ende- 

space + 1)* 9:zyk=zyk+3:space=space+l 

860 GOSUB 1340 

870 typ(var)=l:var=var+l 


[1525] 

[1243] 

[350] 

[3036] 

[2353] 

[1235] 

[2585] 

[2640] 

[ 2121 ] 

[2735] 

[1335] 

[1905] 

[1208] 

[350] 

[1160] 

[9519] 


[1235] 

[2585] 

[1309] 

[8818] 


[1472] 

[5241] 

[872] 

[5682] 


[1566] 
[ 350] 
[2885] 
[717] 
[2091 ] 


[1190] 

[5872] 


[3063] 


[350] 

[4251] 


[7265] 


[2678] 

[ 110 ] 

[657] 

[5878] 


[664] 
[8181] 


[663] 

[9090] 


[670] 

[8276] 


[ 110 ] 
[82] 
[4791] 

[4857] 

[972] 

[4530] 

[1448] 

[1808] 

[5869] 

[ 933] 
[6189] 

[974] 

[491] 


880 RETURN 
890 'Typ 2 

900 zyk=zyk+2:GOSUB 1340:zy(var)=zyk 

910 rreg=l:lo=0:hi=0:merk=space:RESTORE 13 

90:FOR X=1 TO 16:READ a$(x) 

920 POKE space,VAL("&"+a$(x)):space=spac 
e+1:NEXT 

930 space=space-l:hi=INT(space/256):lo=spa 

ce-hi*256:IF hi<0 THEN hi=256+hi 

940 POKE merk+1,lo:POKE merk+2,hi 

950 lo(var)=lo:hi(var)=hi 

960 zahl=ende-space+l:hi=INT(zahl/256):lo= 

zahl-hi*256: IF hi<0 THEN fti=256+hi 

970 POKE merk+4,lo:POKE merk+5,hi 

980 lo 2 (var)=lo:hi 2 (var)=hi:zyk=zyk+(ende- 

space+ 1 )*9:space=space+l 

990 GOSUB 1340 

1000 typ(var)= 2 :var=var+l 

1010 RETURN 

1020 'Typ 3 

1030 zyk=zyk+5:GOSUB 1340:zy(var)=zyk:merk 
=space:RESTORE 1410:FOR X=1 TO 25 
1040 READ a$ (x) : POKE space,VAL("&" + a$(x)) : 
space=space+l:NEXT 

1050 hi=INT{(space-16)/256):lo=(space-16 )- 

hi*256:IF hi<0 THEN hi=256+hi 

1060 POKE merk+7,lo:POKE merk+8,hi 

1070 lo3(var)=lo:hi3(var)=hi 

1080 space=space-l:hi=INT(space/256):lo=sp 

ace-hi*256:IF hi<0 THEN hi=256+hi 

1090 POKE merk+1,lo:POKE merk+2,hi 

1100 lo(var)=lo:hi(var)=hi 

1110 zahl=ende-space+l:hi=INT(zahl/256):lo 

=zahl-hi*256:IF hi<0 THEN hi=256+hi 

1120 POKE merk+4,lo:POKE merk+5,hi 

1130 lo2(var)=lo:hi2(var)=hi:zyk=zyk+(ende 

-space+ 1 )*13:space=space+l 

1140 GOSUB 1340 

1150 typ(var)=3:var=var+l 

1160 RETURN 

1170 'Typ 4 

1180 zyk=zyk+4:GOSUB 1340:zy(var)=zyk 
1190 lo=0:hi=0:merk=space:RESTORE 1440:FOR 
X=1 TO 28:READ a$ 

1200 POKE space,VAL("&"+a$):space=space+ 
1:NEXT 

1210 space=space-l:hi=INT(space/256):lo=sp 

ace-hi*256:IF hi<0 THEN hi=256+hi 

1220 POKE merk+5,lo:POKE merk+6,hi 

1230 lo(var)=lo:hi(var)=hi 

1240 zahl=ende-space+l :hi = IN'l’(zahl/256 ) :lo 

=zahl-hi*256:IF hi<0 THEN hi=256+hi 

1250 POKE merk+1,lo:POKE merk+2,hi 

1260 lo2(var)=lo:hi2(var)=hi 

1270 RANDOMIZE timer:lo3(var)=INT(RND*256) 

:POKE merk+8,lo3(var) 

1280 hi3(var)=INT(RND*256):POKE merk+9,hi3 
(var) 

1290 zyk=zyk+(ende-space+l)*15:space=space 
+ 1 

1300 GOSUB 1340 
1310 typ(var)=4:var=var+l 
1320 RETURN 
1330 ' 

1340 za=zyk:za=INT(za/128):zyk=zyk-za*128: 
RETURN 

1350 stufe=stufe+1:LOCATE 55,9:PRINT"Stufe 
: "stufe:RETURN 
1360 'DATA-FIELD 
1370 '1.Typ 

1380 DATA 21,00,00,01,00,00,16,00,7e,aa,57 
,77,23,Ob,78,bl,20,f6 
1390 '2.Typ 

1400 DATA 21,00,00,11,00,00,ed,5f,ae,77,1b 
,7a,b3,23,20,f6 
1410 '3.Typ 

1420 DATA 21,00,00,01,00,00,Cd,00,00,dd,el 
,ed,5f,dd,ac,ae,dd,ad,77,Ob,79,23,b 0 , 20 ,f 2 
1430 '4.Typ 

1440 DATA 01,00,00,fd,21,00,00,21,00,00,ed 
,5f,fd,ae,00,ac,ad,fd,77,00,Ob,2b,fd,23,78 
,bl,20,ee 

1450 'INTRODUCTION 

1460 DATA f3,ed,56,3e,04,ed,4f 

1470 DATA "Special Alkatraz Protection Sys 

tem (c)1991 Klaus Meffert & CPC Internatio 

nal" 

1480 DATA § 


[555] 

[89] 

[1896] 
[4338] 

[3056] 

[4530] 

[1448] 

[1808] 

[5869] 

[933] 

[4565] 

[974] 

[1314] 

[555] 
[ 88 ] 
[4195] 

[2852] 

[2681] 

[1176] 

[1276] 

[4530] 

[1448] 

[1808] 

[5869] 

[933] 

[4306] 

[974] 

[556] 
[555] 
[95] 
[2208] 
[2183] 

[1634] 

[4530] 

[2271] 

[1808] 

[5869] 

[1448] 

[1812] 

[4785] 

[4182] 

[2230] 

[974] 

[1161] 

[555] 

[117] 

[3626] 

[3679] 

[411] 

[95] 

[3233] 

[719] 

[1685] 

[190] 

[4573] 


[1108] 
[1371] 
[8821] 


[215] 
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Know-how 


Gewitzt und fix mit RSX 

BASIC-Programme in Assembler auf möbeln 

Das bunte Herbstlaub liegt regendurchtränkt auf den Straßen, die Abende 
werden unbarmherzig länger, und der CPC liegt willig auf dem Schreib¬ 
tisch. Wer bis zum nächsten Frühling fit in Assembler sein möchte und dem 
Locomotive-BASIC des CPC mit selbstgestrickten Befehlserweiterungen auf 
die Sprünge helfen will, sollte auf keinen Fall diese Folge des Assembler- 
Kurses überblättern. 


Bei Fernseh-Schnulzen beginnen ein¬ 
zelne Folgen oftmals mit “Was bisher 
geschah“. Anders bei uns: Jeder Beitrag 
unserer “Assembler-Ecke“ bildet eine 
eigene Einheit, so daß man jederzeit 
auf den Zug aufspringen kann. Diesmal 
heißt das Motto “RSX-Einbindung“. 
Was benötigt man, um den Zutritt zur 
Well blitzeschneller und kompakter 
Maschinenspracheprogramme zu be¬ 
kommen? Frohe Kunde: Sic brauchen 
vorerst nur den Standard-Editor des 
BASIC, das in Ihrem CPC eingebaut 
ist, sowie einen Assembler (etwa den 
CPC-Assembler V 2.0 aus Heft 8/9’91) 
für Ihre Entdeckungsreise. 

Übrigens: Die Beispiel-Listings, die 
wir in unsere Artikel eingebaut haben, 
sind auf den gerade erwähnten CPC- 
Assembler zugeschnitten. Für andere 
Assembler, die über einen eigenen Edi¬ 
tor verfügen, ist in jeder Zeile das 
Kommentarzeichen zu entfernen. Au¬ 
ßerdem kann es je nach Assembler er¬ 
forderlich sein, die Zeilennummern zu 
eliminieren. Näheres hierzu verrät Ih¬ 
nen das Handbuch Ihres Assemblers. 

Offenes BASIC 

Das Erweitern des Basic-Befehlssatz.es 
ist erfreulicherweise schon von den 
CPC-Entwicklern bei Amstrad vorge¬ 
sehen worden. Nicht aus Nächstenliebe 
den kreativen CPCIern gegenüber, son¬ 
dern um selbst schnell und einfach Rou¬ 
tinen für das Betriebssystem einbinden 
zu können. All die nützlichen und oft 
verwendeten Befehle mit einem soge¬ 
nannten Pipe-Zeichen am Anfang sind 
Erweiterungsbefehle. 

Das “ I “ teilt dem System mit, daß der 
darauf folgende Befehl als Erweite¬ 
rungsbefehl zu behandeln ist. 

Um dem Kind einen Namen zu geben, 
bezeichnet man diese Art der Befehl s- 
implementation als “RSX“. Das steht 
dabei für “Resident System Extension“, 
was soviel bedeutet wie “residente Sy¬ 
stemerweiterung“ und damit den Nagel 
auf den Kopf trifft. Ursprünglich war 


diese Einrichtung für feste Systemer¬ 
weiterungen in Form von “Expansions- 
ROMs“ gedacht . Die von Haus aus vor¬ 
handenen RSXe wie etwa “'DIR“, 
“ A“, “IREN“, “iERA“ usw. sind ja 
auch tatsächlich als interne Komman¬ 
dos im ROM verankert. Dem System 
selbst ist es jedoch völlig egal, ob sol¬ 
che Befehle nun im RAM oder ROM 
auf Abruf warten. 

Dem Einbinden eigener Befehlserwei¬ 
terungen steht also nichts im Wege. 

First Step 

Aus dem BASIC kennt man den POKE- 
Befchl. POKE schreibt einen Wert von 
0 bis maximal 255 in eine beliebige 
Speicherstelle. PEEK liest entspre¬ 
chend einen Werl aus einer Speicher¬ 
stelle aus. Wir wissen 2 », daß ein Wert 
von 0 bis 255 genau im Darstellungsbe¬ 
reich eines Bytes liegt. Für die weitere 
Arbeit in Assembler wie auch in Basic 
ist es aber sehr oft nötig, einen 16-Bit- 
Wert in eine Speicherstelle zu be¬ 
kommen. 

Glücklicherweise sind wir ja angehen¬ 
de Assemblianer und kennen dement¬ 
sprechend keine Grenzen mehr. Ma¬ 
chen wir uns also einen eigenen POKE- 
Befehl für Werte im Bereich 0 bis hexa¬ 
dezimal FFFF. Neben dem Spaß am 
Hacken dürfen wir uns auch als Na¬ 
mensgeber betätigen. Über Geschmack 
läßt sich ja bekanntlich nicht streiten - 
es erleichtert allerdings die Arbeit mit 
solchen Befehlen ungemein, wenn sie 
“sprechend“ sind. Andererseits macht 
es auch viel Eindruck auf Freund oder 
Freundin, wenn plötzlich ein “;Bian¬ 
ca, &.0000, &6666“ zum völligen Sy¬ 
stemabsturz führt. 

Da es sich bei unserer Routine praktisch 
um einen “doppelten“ POKE handelt, 
setzen wir als Beispiel einfach das Prä¬ 
fix “D“ vor den klassischen POKE und 
erhalten einen wunderbar sprechenden 
DPOKE-Bezeichner. Die Parameter¬ 
übergabe erfolgt bei unserem neuen Be¬ 
fehl analog zum klassischen POKE. 


Begriffsklärung 
für den Einsteiger 

RAM: 

“Random Access Memory“, auch 
‘■flüchtiger Speicher“ genannt. Der Ar¬ 
beitsspeicher. der für die vorübergehen¬ 
de Speicherung von Programmen und 
Daten verwendet wird, besteht aus 
RAM-Baustcinen. Diese verlieren die in 
ihnen gespeicherte Information, sowie 
die Stromversorgung unterbrochen 
wird. Bei Taschencomputern werden 
bisweilen stromsparende RAM-Typen 
eingesetzt, die ihren Inhalt dank einer 
Battcrieversorgung über längere Zeit 
aufrechterhallen können. Der Zugriff 
auf RAM-Bausteine kann in der Regel 
sehr schnell geschehen. 

ROM: 

“Read Only Memory“, also Nur- 
Lese-Speicher, auch “Festspeicher“ ge¬ 
nannt. Speicherbausteine, die nach ihrer 
industriellen Einmal-Programmierung 
weder gelöscht noch neu beschrieben 
werden können. Sie enthalten Program¬ 
me, die zum festen Einbau in Rechner 
oder andere prozessorgesteuerte Geräte 
gedacht sind. So verfügt beispielsweise 
der CPC ebenso über ROM s wie jeder 
handelsübliche CD-Spieler. Auf ROM 
gespeicherte Programme lassen sich nur 
durch Austausch des entsprechenden 
Bausteins “updaten“ (ändern). Beim 
CPC ist außer dem Betriebssystem 
AMSDOS auch das Locomotive-BASIC 
fest im ROM verankert. Für das Lesen 
von Daten braucht ein Computer beim 
ROM im allgemeinen wesentlich länger 
als beim RAM. Dem CPC ist dies aller¬ 
dings egal; er ist ohnehin nicht der 
Schnellste und kann die Möglichkeiten 
des flotteren RAM-Zugriffs nicht 
nutzen. 

EPROM: 

“Erasable Programmable Read Only 
Memory“, zu deutsch “Löschbarer, pro- 
g ramm ierbarer N u r- Lese-Spe icher “. 
Eine Art Kompromiß zwischen dem kurz¬ 
atmigen RAM und dem starren ROM. 
Ein EPROM-Baustein läßt sich wie ein 
ROM einsetzen; sein Inhalt bleibt beim 
Betrieb unverändert. Er läßt sich aber 
durch Einsatz von UV-Licht löschen. 
Ein gelöschtes EPROM kann mit Hilfe 
eines “EPROM-Brenners“, der an einem 
Rechner angesehlosscn ist, neu pro¬ 
grammiert werden. Anschließend 
schützt man sein “Löschfenstcr“ mit ei¬ 
nem Aufkleber gegen den Einläll von 
UV-Licht und somit gegen unbeabsich¬ 
tigtes Löschen. LPROMS werden über¬ 
all da eingesetzt, wo Anwender ohne in¬ 
dustrielle Mittel Festprogramme verfüg¬ 
bar machen oder alle ROM-Versionen 
updaten wollen. EPROMS stellen im Le¬ 
sezugriff die langsamste An der Spei¬ 
cherbausteine dar. 
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A 

F 

A’ 

F 

B 

C 

B’ 

C’ 

D 

E 

D’ 

E’ 

’ H 

L 

H' 

L’ 


Indexregister IX 


Indexregister IY 

Stackpointer SP 

Prg.-Counter PC 

Interrupt- Refresh¬ 
register register 
I R 


Der Registersatz der Z80-CPU. Eine besondere 
Rolle spielen dabei die Indexregister sowie 
"Stackpointer" (Stapelzeiger) und “ Program- 
Counter “ (Befehlszähler) 


Register und Flags 

Bevor nun die ersten Assembler-Zeilen 
codiert werden, gilt es, noch ein paar 
Vokabeln zu lernen. Register sind in¬ 
zwischen als Schubladen für 8- und 
16-Bit-Werte bekannt. Für unser Bei¬ 
spielprogramm machen wir erstmals 
Gebrauch davon. Allerdings sind wir 
genügsam und benutzen nur die Regi¬ 
ster “D“, “E“ und “IX 4 ', außerdem die 
als Doppelregister wirkenden "H“ und 
“L“. 

Sehen wir uns nun das folgende kleine 
Assembler-Listing an: 

150 ’ORG&AOOO ; Startadresse festlegen 
270 ' LD L, (IX+2); Adreß-Paraneter über¬ 
geben 

230 'LD H, (IX+3); und ins HL-P.egister 
laden 

290 'ID (HL) ,E ; Low-Byte speichern 
300 ' INC HL ; Adresse auf High-Byte 
310 'LD (HL) ,D ; High-Byte speichern 
320 'RET ; Zurück zum BASIC 

Ein Blick auf die Details: 

In Zeile 150 wird die Startadresse des 
Programms festgelegt. Bei &C000 bis 
&FFFF liegt weitgehend der Bild¬ 
schirmspeicher. Das Betriebssystem 
befindet sich im Bereich von &0000 bis 
&3FFF. Es wird beim BASIC-Betrieb 
zwar weitgehend ausgeblendet, den¬ 
noch ist dieser Bereich keine sichere 
Bleibe für einen “blinden Passagier“ in 
Maschinensprache. Eine gute Start¬ 
adresse könnte aber auf den ersten 
Blick der darauf folgende Bereich sein. 
Er beginnt bei hexadezimal 4000, kurz 
4000h oder in Assembler-Schreibweise 
“&4000“. 

Leider läßt jedoch BASIC keine Ma¬ 
schinenprogramme unterhalb der HI- 


MEM-Grenze zu. Mit der Systemva¬ 
riablen HIMEM wird ja bekanntlich 
die Obergrenze für BASIC-Program¬ 
me im Speicher festgelegt. Will man 
ein Maschinenprogramm in den Spei¬ 
cher schmuggeln, setzt man zunächst 
HIMEM herunter. Wer also darauf be¬ 
stünde, die DPOKE-Routine bei 
&4000 zu starten, müßte HIMEM auf 
&3FFF setzen: 

100 H1 GHMEM=&3FFF:REK das ist Ouatsch 

Jetzt wäre allerdings nur noch sehr we¬ 
nig Platz fürs BASIC-Programm — ge¬ 
nauer: nicht mehr als die 16 kByte, hin¬ 
ter denen sich das Betriebssystem ver¬ 
steckt. Es ist sehr viel besser, die Start¬ 
adresse so hoch wie möglich 

anzusetzen — damit man möglichst viel 
Platz für weitere Programme übrigbe¬ 
hält. Im Beispiel haben wir für die 
Startadresse daher die ziemlich unkriti¬ 
sche Stelle &A000 gewählt. Damit las¬ 
sen wir noch rund 40 Kilobyte für BA- 
SlC-Programme frei und reservieren 
8192 Bytes an “Maschinenraum“. 
Doch nun zurück zu den einzelnen As¬ 
semblerbefehlen der DPOKE-Routine: 
LD (“Load“) ist ein sogenannter Trans¬ 
portbefehl. Er transportiert 8-Bit-Wer- 
te zwischen beliebigen Speicherslellen 
und Registern. Dabei wird immer erst 
das Ziel und dann die Quelle angege¬ 
ben. In Zeile 270 bringen wir also den 
Wert, auf den “IX+2“ zeigt, in das 
“L“-Register. 

“INC Register“ tut nichts weiter, als 
den Weit des angegebenen Registers 
um Eins zu erhöhen. Hier die einzelnen 
Komponenten unseres Beispielpro¬ 
gramms noch einmal im Überblick: 

• Register H,L,D und E: Über sie 
transportiert der LD-Befehl alle Werte, 
die im Programm benötigt werden. 
Teilweise werden dabei zwei Register 
als Doppel register verwendet (Zeile 
290). 

• Flags: Das Zero-Flag wird automa¬ 
tisch gesetzt, wenn der Routine keine 
Parameter übergeben wurden. 

• IX: Wichtig! Dieses Register enthält 
die Adresse des letzten Elements. Ne¬ 
ben dem direkten Zugriff auf Werte 


kann man auch “Hausnummern“ über¬ 
geben — Hinweise, wo entsprechende 
Werte abgeholt werden können. Soll 
von einem Register der Wert nicht di¬ 
rekt verwendet, sondern als Adresse 
betrachtet werden, so ist das Register 
in Klammern zu setzen. 

Will man also nicht den Wert von 
“IX“, sondern den Wert der Adresse, 
die in “IX“ steht, benutzen, so schreibt 
man “...,(IX)“. Dabei sind auch in die 
Klammer integrierte arithmetische 
Ausdrücke wue “(IX-2)“ oder 
“(IX+4)“ möglich. Hier wird zu dem 
Wert im Register IX ein Zahlenwert 
addiert beziehungsweise davon subtra¬ 
hiert. 

Ein derartiges Vorgehen wird als 
“ Poi nter- Ari thmeti k “ beze ichnet. 
“Pointer“ bedeutet “Zeiger": Die 
Adresse, die in Klammern angegeben 
ist, enthält ja nicht den gesuchten Wert, 
sondern “zeigt“ nur auf eine Adresse, 
die das tut. 

Start frei 

Unsere DPOKE-Routine ist damit voll 
funktionsfähig. Nach dem Start des 
Programms über den Assembler ist sie 
im Speicher installiert. Speichert man 
die Routine als Binär-Datei über den 
Assembler ab, läßt sie sich wie folgt in 
jedes Programm einbinden und instal¬ 
lieren: 

110 ADRESSE=&A000 

120 LOAD “DP0KE.BIN", ADRESSE 

130 CALL ADRESSE 

140 PRINT "DECKE IST INSTALLIERT" 

Der Aufruf erfolgt allerdings bislang 
noch nicht wie angestrebt über einen 
RSX-Befehl “,'DPOKE“, sondern 
über einen BAS1C-“CALL“-Befehl: 
“CALL &A000, Adresse, Wert“ wür¬ 
de zum gewünschten Ergebnis führen. 
Um unsere Routine über “.'DPOKE“ 
aufrufen zu können, müssen wir das 
Betriebssystem des CPC zu Hilfe ru¬ 
fen. Glücklicherweise lauert dort ein 
Experte für das Einbinden von RSX- 
Befehlen. 


&0000 &3FFF 


&C000 &FFFF 


ROM 


Betriebssystem 


BASIC 


RAM 


Arbeitsspeicher und zentrales RAM Bildschirm 


Die Speichereinteilung der CPCs (den zweiten 64-kByte-Block des 6128 haben wir hier vernachlässigt) 
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Der Experte hat auch einen Namen und 
eine Hausnummer: Unter der Adresse 
“&BCD1“ befindet sich die Betriebs¬ 
system-Routine “Logext“, der wir nur 
noch einige Parameter übergeben. 
Damit wir DPOKE erfolgreich einbin¬ 
den können, müssen uns folgende 
Punkte klar sein: 

• Der frei gewählte Name der Befehls¬ 
erweiterung (DPOKE) 

• Die Adresse, ab der das Programm 
abgelegt worden ist (&A000) 

• Die Adresse eines 4 Byte großen 
Speicherraums, der zur Verwaltung 
des neuen RXS-Befehls gebraucht 
wird. 

Die Adresse dieser vier Systembytes 
muß vordem Aufruf von “Logext“ ins 
HL-Register geladen werden. Außer¬ 
dem ist das Registerpaar "BC“ mit der 
Startadresse der Systemtabelle zu ver¬ 
sehen. Diese Tabelle (TAB1) wieder¬ 
um enthält als erstes die Adresse einer 
zweiten Tabelle. In dieser zweiten Ta¬ 
belle (TAB2) steht der Name unseres 
neuen RSX-Befehls. Bei mehreren 
neuen Erweiterungen würden entspre¬ 
chend weitere Namen folgen. Wichtig 
ist. daß in jedem Fall das höchstwertige 
Bit (Bit 7) des letzen Buchstabens eines 
Namens gesetzt wird. Beim “CPC-As- 
sembler V 2.0“ erledigt das automa¬ 
tisch die “DMX“-Anweisung. Bei an¬ 


deren Assemblern muß man den letzten 
Buchstaben explizit definieren: 

TAB2 DK “DFCK" 

D3 &C5 ; (oder: DB “E“ + &80) 

DB 0 

DM definiert den ersten Teil des Na¬ 
mens. Der Pseudobefehl DB (“Define 
Byte“) legt dann den Wert für das Byte 
fest, das den letzten Buchstaben bildet. 
Zum ASCII-Wert des betreffenden 
Buchstabens werden 128 (&80) ad¬ 
diert, es wird also das höchstwertige 
Bit gesetzt. Statt den gewünschten 
ASCII-Wert nachzuschlagen und dann 
die nicht sehr aussagekräftige Summe 
(hier &C5) zu setzen, darf man es sich 
bei den meisten Assemblern auch ein¬ 
facher machen: die verständnisfreund¬ 
lichere Variante haben wir oben in 
Klammern angegeben. 

Wie geht es nun im Programm weiter? 
Auf die Adresse der Tabelle folgt der 
Sprungbefehl auf die eigentlichen Rou¬ 
tinen der RSX-Befehle. Unser Bci- 
spielprogramm in der erweiterten 
Form sieht dann so aus, wie Sie es im 
Listing-Kasten im Anschluß an diesen 
Artikel finden. 

Jetzt noch anschubsen 

Nach dem Assemblieren des gesamten 
Programms muß die Routine einmal 


mit "CALL &A000“ installiert wer¬ 
den. Danach verfügen Sie bis zum 
nächsten Warmstart (< Shift > - 
<Ctrl>-<Esc>) oder zum Aus- 
schalten des Rechners über den “!D- 
POKE“-Befehl. 

Er kann wie jeder andere BASIC-Be- 
felil im Direktmodus per Tastatur oder 
von einem Programm aus verwendet 
werden, läßt sich also auch in Listings 
einbauen. Die Syntax: 

iDPOKE, Adresse, Wert 

Bekanntlich sind gerade bei etwas un¬ 
gewohnten Themen schnelle Erfolgser¬ 
lebnisse wichtig. RSX-Befehle bieten 
sich hier förmlich an. und so ganz ne¬ 
benbei kommt man im Laufe der Zeit 
zu einem wirklich “persönlichen“ 
BASIC. 

Aut der nächsten Station unseres As¬ 
sembler-Kurses wollen wir uns etwas 
mit den Flags, mit Schleifenprogram¬ 
mierung ohne Knoten, außerdem mit 
Programmschutz und dessen Überwin¬ 
dung beschäftigen. Bis dahin “Gut 
Hack!“. 

Ulrich Schmitz/jg 


Literatur: 

i 1 Dullin. RetzlalT, Schneider, Strasscnburg: CPC 
Pips & Tricks, Verlag Data Decker 
2) Ulrich Schmitz: Ja und Nein, CPC Amstrad Interna¬ 
tional 10/11 '91. S. 32-34 
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Programm DPOKE.ASM 
zum Assembler-Kurs, Folge 2 
(c) 1991 Ulrich Schmitz 
& CPC International 


'ORG &A000 
'LD BC,TAB1 
'LD HL,SYSBYTE 

'CALL &BCD1 
'RET 

'SYSBYTE DEFS 4 


;Startadresse festlegen 
/Adresse der 1.Tabelle 
/Adresse der 4 Bytes der RSX- 
Verkettung 

/Routine "Logext" rufen 
/zurueck zu BASIC 
/4 Bytes reservieren 


210 'TABl DW TAB2 

220 'JP DPOKE 

230 'TAB2 

240 'DMX "DPOKE" 

250 'DB 0 

260 'DPOKE 

270 'LD L,(IX+2) 

280 'LD H,(IX+3) 

290 'LD (HL),E 

300 'INC HL 

310 'LD (HL),D 

320 'RET 

330 'END 


/Link auf Tabelle 2 
/Sprung auf Programm 

/Namenstabelle, 7.Bit gesetzt 
/Ende der Namenskennung 
/- ab hier das Ur-Programm - 
/Adress-Parameter uebergeben 
/und ins HL-Register laden 
/Low-Byte speichern 
/Adresse auf High-Byte 
/High-Byte speichern 
/zurueck 
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■STARDRIVE Zweitlaufw. anschlußfertig für CPC: 

•Stardrive 5,25"-TEAC- (720/360 KB) 

‘Stardrive 3,5“ -TEAC- (720/360 KB) 

■Stardrive 3“-Hitachi- (360 KB) 

DM 289.00 
DM 239.00 
DM 199,00 

’STARDRIVE Erstlaufw. für CPC 464: 

‘Stardrive 3" -Hitachi- (incl. Kontr.) 

‘Slardrive 5,25''-TEAC- (incl. Kontr.) 

DM 395,00 
DM 469,00 

DISKETTEN (Auszug): 

5.25' - 40 TPI (MD2D) (10 Stk.) 

35" -136 TPI (MF2DD) (10 Stk.) 

3' - Maxell CF2- (1 o Stk.) 

DM 7,50 

DM 15.00 

DM 59,00 

Weiteie Angebote emnehmon Sie bitte u Prospelden/Listen, die v/lr Ihnen gerne kostenlos zuschicken, 

Preis zzgl Porto/Vorpackung, 

C + L electronic 

Computerhardware 

6759 Hefersweiler'Seelenerstraße 4*Tel.: 

06359/2582 
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LABEL-MASTER 1.0, 3’-Diskcllü + Handbuch DM 64,95 

Vergessen Sie einfach alles, was Sie an EtiKetton-Prag rarrmen li/t den CPC kennen. Label-Master verbindet die 
einfache Bedienung eines herkömmlichen Elikellan-Progiamms mit den grafischen Fähigkeiten von Pro-Desiqn 
Viele wunderschöne Grafiken per Knopfdruck abrulbai a- und 24-Nadol-Druckertreiber. Mil Labei-Masler or- 
stellen Sie keine Nullachllüntzehn-Etikeiten, sondern kleine Kunslwerke. 

PRO-DESIGN 2.1, 3"Dlskotte + Handbuch DM 64.95 

Dei Klassiker untoi don DTP-Programmen, Im Handumdrehon erstellen Sie professionelle Grafiken, Rahmen 
ScnmucKlinlen, Symbole und 10 Sclii.luin + CPC-Zolchensa:/ {alle mit äoüÄOÜf)), 50 Zusatzschrlllen erhältlich’ 
16 Druckformaten«-! Darstellungsfarmale, kostenlose Druckoranpassung usw. usw 
PRO-BOOSTER 1.2, 3'-Diskolle 4 Handbuch OM 34,95 

Dokumenlen-Diuckpiogramm, Grafik-Schriflbandganeralor, Snapshotutility. Die Ideale Ergänzung zu Pro-Design 
DESK-ROYAL 1,0. 3"-Dlskolte 4 Handbuch DM 54,95 

38 neue BASIC-Belehle sorgen für PC-Luxus wie Desktopsteuerung und Dialogboxen jetzt auch ln Ihren Pro¬ 
grammen. aul Ihrem CPC! Kinderleichte Anwendung, Software vom Feinsten tür alle kreativen BASIC-Froundo 
Versand gegen Veirechnungsscheck ( 43 ,- OM) oder Nachnahme ( 46 .- DM). Wellern Angebote In unserem Kain og. 
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Briefe 


CPC 


Canon S-300 am CPC 

Meine Absicht ist es, die 
Schreibmaschine Canon S-300 
mittels des Parallelinterfaces 
"Canon-30 “ als Typenrad¬ 
drucker an meinen CPC anzu¬ 
schließen. Können Sie mir mit- 
teilen, wie das Textprogramm 
“Context CPC“ an diese Konfi¬ 
guration angepaßt wird? 

Klaus Theulke 
Haifing 


Speziell lur die Canon-Maschi¬ 
ne haben wir leider keine ange¬ 
paßte ConTcxt-Vcrsion parat. 
Das bedeutet: Handarbeit. Alle 
Buchstaben außer den deut¬ 
schen Umlauten, ß, Paragraph 
und noch ein paar Sonderzei¬ 
chen müßten bei Verwendung 
von “Normalschrift“ im Pro¬ 
gramm schon von Haus aus 
richtig gedruckt werden. Span¬ 
nend wird es, wenn es um die 
oben erwähnten “Ausnahmen“ 
sowie um Fettdruck, Hoch- und 
Tiefstellen geht. Dann gilt es 


nämlich, im Programmcode von 
ConText CPC die Steuersequen¬ 
zen zu ändern. 

Dazu laden Sie bei der kommer¬ 
ziellen ConText-Version die Da¬ 
tei "Context.Bas“ und tragen 
zwischen den Zeilen 110 und 120 
mit Hilfe von POKE-Befehlcn 
die richtigen Steuercodes ein. 
An welche Adressen für wel¬ 
chen Zweck gePOKFt werden 
muß, steht im Handbuch zu 
ConText CPC. 

Das veränderte Basic-Pro- 
gramm wird abgespeicherl und 
sorgt dann nach dem Start für 
die richtige Druckeranpassung. 
Schwieriger sieht es da bei den 
Umlauten und Sonderzeichen 
aus - um sie zu verschieben, 
muß man die Zcichcnsatztabelle 
decodieren und ändern. 

Wir wollen gern versuchen, die 
nötigen Schritte aufzudröseln 
und an einem Beispiel vorzufüh¬ 
ren, bitten aber dafür um Ge¬ 
duld bis zum nächsten Heft. Für 
die POKEs brauchen Sie natür¬ 
lich die Codes, die Ihre Canon- 
Typenradmaschine für Umlaute 
und Steuerbefehle benutzt. Die¬ 
se müssen Sie der technischen 
Dokumentation Ihres Interfaces 


entnehmen (im Zweifel die Her¬ 
stellerfirma fragen). 

Vielleicht hat ja auch der eine 
oder andere unserer Leser schon 
eine fertige ConText-Anpassung 
für Typenradmaschinen auf 
Lager? 

Red. 


CPC 


1-kByte-Progranim 

“Clock“ 

In meinem I-kByte-Programm 
“Clock" aus der CPC 8/9 '91 hat 
sich leider ein kleiner Fehler 
eingeschlichen, wodurch der 
Stundenzeiger nicht so funktio¬ 
niert, wie er soll. 

Um den Fehler zu korrigieren, 
ändern Sie bitte folgende Zeilen: 

10230 IFq< -270 TUEN 10235 
ELSE 10250 
10235 h=h-0.5 
10240 M0VEx,y:DRAV 

x+(g/2.4}*COS(h-t-0.5), 
y+(g/2. 4)#SrN(h+0.5),0 
10250 MO VE x,y:DRAV 
x+(g/2.4)*C0S(h),y+(g/2.4)* 


SIN(h),13:RETURN 

Nun funktioniert das Programm 
einwandfrei. 

Thorsten Giertz 
Remchingen 


Leserbriefe 10/11’91 


Fanzines 

Im Brief des Herrn Maurice Ho- 
nutn aus Holland werden etliche 
deutsche Fanzines mit Namen 
benannt, jedoch keine Adressen 
angegeben. Da sicherlich einige 
Leser Interesse an einer dieser 
Mini-Zeitschriften haben, hier 
die Bezugsadressen, Preise und 
die Thematik/Lesergruppe: 

• Crackers International 
(Thriller <£ Weee) 

Preis: 1,-DM + frankierter 
D/N-A5-Rückumschlag 
Redaktion: CI, PLK 063863 A, 
6430 Bad Uersfeld 
Bezugsquelle: 

für Heft 7 siehe “Redaktion " 
ab Heft 8: MB- Versand, Post¬ 
fach 501132, 5000 Köln 50 


Wir sind ganz Ohr... 

...für Ihre Fragen und Anregungen, was unser Heft betrifft - 
und alles andere rund um CPC oder PCW. Wollen Sie ein selbst¬ 
geschriebenes Programm im Heft unterbringen? Kennen Sie ein 
brandneues Programm, über das wir unbedingt etwas schreiben 
sollten? Kommen Sie mit einem der abgedruckten Listings nicht 
klar? Oder wollen Sie einfach mal mit einem von uns eine Runde 
fachsimpeln? 

Dann ist unsere 

Redaktions-Hotline 

auch für Sie interessant. 

Sie sind herzlich eingeladen - wir wissen zwar nicht auf jede 
Frage die richtige Antwort, aber mancher Knoten löst sich trotz¬ 
dem schon am Telefon. 

Jeden Dienstag von 16 bis 19 Uhr 

hängt das komplette Redaktionsteam der CPC Amstrad Interna¬ 
tional für Sic an der Leitung. Hier unsere Telefonnummern: 



Jörg Gurowski (jg) Ralf Schößler (rs) Peter Schmitz (sz) 

0 56 5118 09- 751 0 56 511809-752 0 56 511809-753 


Hallo, Clubs! 

Wir möchten mal wieder etwas für eine lebendige Clubszene un¬ 
ter den deutschen CPC- und PCW-Frcunden tun. Daher richten 
wir ab sofort eine Clubseite in der CPC Amstrad International 
ein. Diese Seite ist dann Eure Seite! Ihr könnt darauf zum Bei¬ 
spiel: 

• Eure Club-Adresse veröffentlichen und Mitglieder 
werben 

• auf Veranstaltungen hinweisen oder über bereits Gewesenes 
berichten 

• die Nummern von interessanten Mailboxen oder Btx-Seiten 
austauschen 

• eine Selbstdarstellung Eures Clubs bringen, natürlich auch 
mit Fotos (bitte nur schwarzweiß!) 

Klar, daß die Veröffentlichung auf der Clubseite für Euch völlig 
kostenlos ist. Ebenfalls klar, daß Ihr so auf einen Schlag den 
größten Teil aller User erreicht, die es noch gibt. Über zehntau¬ 
send Leute kaufen die CPC Amstrad International alle zwei Mo¬ 
nate — macht Euch das zunutze. 

Achtet bitte darauf, daß wir produktionsbedingte Vorlaufzeiten 
haben. Wenn Ihr also beispielsweise auf einen Flohmarkt im Fe¬ 
bruar hinweisen wollt, muß die entsprechende Meldung bis 
Weihnachten bei uns sein. Dann bekommen wir sic noch ins Heft 
2/3’92 hinein, das im Januar erscheint. Schreibt an: 

DMV — Daten- und Medienverlag 
Redaktion CPC Amstrad International 
- Clubseite - 
Postfach 250 
3440 Eschwege 
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Inhalt: Szenen-News, aktuelle 
Spiele- und Demotests, Er¬ 
wischt-Stories... 
Erscheinungsweise: unregel¬ 
mäßig 

• CPC Power International 
(Mike Behrendt) 

Preis: 5, -DM inkl. Porto 
Redaktion/Vertrieb: CPC-Po- 
wer, Postfach 501132. 5000 
Köln 50 

Inhalt: Anwenderkurse (Basic. 
Assembler, Forth...), Tests von 
Spielen und Anwendungen. Co¬ 
ver Tape, Berichte... 
Erscheinungsweise: alle zwei 
Monate 

• Crackers International 
(KNS) 

Preis: 2. — bis 3, — DM 
Adresse: CI, PF 117. 54/2 
Ransbach-Baumb. 

Zu Inhalt und Zielrichtung 
habe ich leider keine näheren 
Angaben. 

• CPC ChaUenge (GAS) 

Preis: 3,-DM inkl. Porto 
Redaktion: PLK 124 105 C. 


2300 Kiel 

Vertrieb: Postfach 501132, 
5000 Köln 50 

Inhalt: Spieletests, Pokes, Sze¬ 
neberichte , Party-Stories 
• Frame Fly (Pluton of Com- 
motion) 

Diskettenmagazin, erscheint je 
nach Bedarf und Zeit 
Die Bezugsadresse hierfür liegt 
mir leider nicht vor. 

Mike Behrend 
Köln 


CPC 


Argumentenübergabe 
in Assembler 

Ich beschäftige mich seit einiger 
Zeit mit Assemblerprogrammie¬ 
rung. Nun möchte ich natürlich 
auch die Floppy-Befehle ver¬ 
wenden. Ich habe aber Proble¬ 
me mit der Argumentenüberga¬ 
be. Können Sie mir einen Tip 


geben, wie das funktioniert? 
Selbst langwieriges Probieren 
hat bislang zu keinem Erfolg ge¬ 
führt. 

Guthard Manfred 
Bad Königshofen 

Die Argumentenübergabe an ei¬ 
nen RSX-Befehl geschieht so, 
wie cs das Listing im Kasten am 
Beispiel von IREN,“TEST.- 
NEW“,“TEST.OLD“ in As¬ 
sembler zeigt. 

Dies ist natürlich nur eine Art 
“Schnellimbiß“. Wer mehr 
“Flitter“ braucht, sollte unseren 
Assemblerkurs verfolgen! 

Red. 


CP/M 


Small-C-Conipiler 

In der letzten Ausgabe der CPC 
International (10/11 '91) las ich 
voller Interesse den Artikel über 


Datenkompression und war 
dann sehr enttäuscht, daß das 
abgedruckte Beispielprogramm 
in der Programmiersprache C 
geschrieben wurde. 

In Ihrem Artikel schreiben Sie, 
daß der verwendete Compiler 
über Ihren Verlag zu beziehen 
ist. 

Ich würde nun gerne wissen, 
was im Lieferumfang von Small- 
C enthalten ist und was es ko¬ 
stet. 

Stefan Heier 
Iffezheim 

Leider ist es uns nicht gelungen, 
den Small-C-Compiler in unser 
Programm aufzunehmen. 

Sie können ihn jedoch bei der 
Firma Weeske, Backnang, für 
rund 20 DM bekommen. Im 
Lieferumfang befindet sich eine 
3-Zoll-Diskette sowie ein deut¬ 
sches Anleitungsheft, das unter 
anderem eine Erklärung der Un¬ 
terschiede zwischen Small-C 
und dem Standard-C bietet. 
Ebenfalls enthalten ist ein Edi¬ 
tor für die Quelltextc. 

Red. 


LD HL,BEF 
CALL 
# 0BCD4 
RET NC 
LD k,2 ; An¬ 
zahl der 
Argumente 
LD IX,ARG 
GALT, #013 


RET 


BEF: DEFM 'RE' 


DEFB 


’N’ + #80 


ARG: DEFWARG1 

»1. Argu¬ 
ment 

DE FW ARG2 

^.Argume¬ 

nt 

ARG1: DEFE 8 

; Der Name 
ist 8 

DE FW: NAHE 

jZeichen 

lang 

; und be¬ 
ginnt 
;bei 
Adresse 
NAME 11 
NAME: 

DEFM 


'TEST.OLD 

ARG2: DEFB 8 

;Der Name 
ist 8 

DEFV: 

NAME1 

;Zeichen 
lang 

;und be¬ 
ginnt 
;bei 
Adresse 
;“NAMEl“ 
NAKE1: 

DEFM 


'TEST.NEW' 


In eigener Sache: “’Tschuldigung!“ 

Einige von Ihnen, liebe Leser, dürften mit Recht ein wenig verärgert sein. Grund: Mancher 
Leserbrief, der bereits vor längerer Zeit an uns geschickt worden ist, wartet bis heute noch auf 
seine Beantwortung. 

Tatsächlich haben wir gewisse Schwierigkeiten, mit der Menge an Leserzuschriften fertigzu¬ 
werden. Immerhin erreichen uns ja nicht bloß Briefe, die das Hell betreffen, sondern auch 
Fragen und Vorschläge zu Softwareprodukten, die vom DMV vertrieben werden. Außerdem 
gibt es noch jede Menge Briefe, in denen Hilfe bei Hard- oder Software-Anpassungsproble- 
men gesucht wird. Mit der Beantwortung all dieser Fragen ist ein riesiger Recherche-Auf¬ 
wand verbunden, dem unsere kleine Redaktion einfach nicht gewachsen ist. Immerhin müs¬ 
sen wir ja zu dritt (zwei Redakteure, ein Chefred) termingerecht Themen fürs Heft erarbeiten, 
Software testen, Artikel redigieren, Meldungen schreiben, für Bildschirmfotos sorgen, Bei¬ 
träge auf Zuverlässigkeit überprüfen, und, und, und... — kurz, alles tun, damit Sie alle zwei 
Monate wieder eine CPC International in den Händen hallen können, die ihr Geld wert ist. 
Außerdem machen wir die DATABOX-Disketten — viel Schweiß und Erleichterung, wenn 
wieder eine Ausgabe zusammengestellt, getestet und zum Kopieren fertig ist. 

Bei den Leserbriefen gilt es natürlich zuerst, die interessantesten Anliegen fürs Heft aufzube¬ 
reiten. Erst dann kommen die “Einzelanliegen“ zu ihrem Recht. Wir können also nur herzlich 
um Entschuldigung bitten, wenn über all der Termin-Hektik, dem Umzug und dem Mann¬ 
schaftswechsel der letzten Monate einige Fragen offengeblieben sind. Um in Zukunft schnel¬ 
ler reagieren zu können, lassen wir hiermit einen 

Hilferuf 

los: Wir suchen freie Mitarbeiter, die uns auf Honorarbasis helfen, Leserfragen zu Hard- und 
Software von CPC oder PCW zu beantworten. So könnte sich etwa ein passionierter Bastler 
entsprechend seinem Interessenschwerpunkt um alles kümmern, was Schnittstellen, Umbau 
und Erweiterung des Computers betrifft. In puncto Honorar zeigen wir uns durchaus großzü¬ 
gig, und besondere sprachliche Qualitäten sind nicht erforderlich: Wenn's um die Veröffent¬ 
lichung im Heft geht, polieren wir die Antworten gern ein bißchen journalistisch auf. 

Na, wie wär’s? Hier sind besonders die “Spezis“ von Fanzines und Clubs gefragt: Wollt Ihr 
uns helfen, besser zu werden? Ein Versuch lohnt sich sicher auch für Euch. Schreibt an: 

DMV - Daten- und Medienverlag 
Redaktion CPC Amstrad International 
Stichwort: freie Mitarbeit 
Postfach 250 
3440 Eschwege 
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Im Herzen des JOYCE 


Teil 4: Der Zustand des Rechners 

Wenn wir über den Zustand unseres Computers sprechen, hat dies natürlich 
weniger mit dem materiellen Zustand, sprich dem ’Alter’ des Rechners zu 
tun, sondern vielmehr mit dem Operationellen Zustand, auch als 'STATUS’ 
bezeichnet. Dem Nutzer wird dieser Status über sogenannte Statusmeldun¬ 
gen mitgeteilt, damit er über eine vorhandene Fehlerquelle oder die even¬ 
tuellen 'Unzulänglichkeiten' seines Rechners informiert ist. Wichtige Ände¬ 
rungen im Status werden meist automatisch angezeigt (zum Beispiel Fehler), 
andere Informationen können über die Tastatur oder aus Programmen her¬ 
aus abgerufen werden. 


Im heutigen Teil unseres Streifzugs 
durch die BIOS-Tiefen der PCW-Rech- 
ner befassen wir uns mit den Möglich¬ 
keiten des JOYCE, uns seinen 'Status’ 
mitzuteilen. Diese Mitteilungen erfol¬ 
gen entweder über die Statuszeile (die 
untere Bildschirmzeile) oder direkt auf 
dem Bildschirm, wenn die Statuszeile 
ausgeschaltet ist. Der Terminal-Emula¬ 
tor, der die Kommunikation mit dem 
Anwender-Programm steuert, hält auch 
hierfür die entsprechenden Routinen 
bereit. Bevor wir uns jedoch diesen 
Routinen zuwenden, benötigen wir 
noch einige Kenntnisse über den Auf¬ 
bau solcher Meldungen. 

Jede Statusmeldung setzt sich aus meh¬ 
reren Textfragmenten zusammen, die 
ebenso wie die Statusmeldungen selbst, 
durch eine entsprechende Text-Num¬ 
mer gekennzeichnet sind. 


Erst beim Aufruf werden diese Text- 
fragmcntc, zusammen mit eventuell be¬ 
nötigten Kontrollinformationell, Zah- 
lenwerten und so weiter, zu einer ver¬ 
ständlichen Statusmeldung zusammen¬ 
gefügt. 

Von den insgesammt 70 Text-Nummern 
werden nur 25 (siehe Tabelle l) für den 
direkten Aufruf der Statusmeldungen 
benutzt, weitere 45 definieren die Text¬ 
fragmente, die zur Erzeugung dieser 
Meldungen benötigt werden. 

Ein Beispiel: 

Die Statusmeldung mit der Aufrufnum¬ 
mer 0 (siehe Tabelle 1) ist in der Tabelle 
der Statusmeldungen ($1920 - $1C1F in 
Speicherbank #0) wie folgt abgespei¬ 
chert: 

fe C3 bc ci ff Für die komplette Mel¬ 
dung werden also nur fünf Bytes benö¬ 
tigt. die beim Aufruf die jeweils benö¬ 


tigten Textfragmente zur eigentlichen 
Meldung zusammen fügen. Durch die 
Verwendung von Steuercodes inner¬ 
halb dieser Textfragmente ist es mög¬ 
lich, Zahlen, Gerätenamen, etcetera 
ebenfalls in die Statusmeldung einzu¬ 
fügen. 

Gesteuerte Status-Ausgabe 

Mit entsprechenden Kenntnissen über 
Bedeutung und Verwendung dieser 
Steuerzeichen lassen sich somit ohne 
Schwierigkeiten Tabellen zur Ausgabe 
'eigener' Statusmeldungen aulbauen. 
Dazu muß der Adresseintrag der BIOS- 
Statustabelle (in Adresse $09CA) auf 
die eigene Tabelle umgeleitet werden. 
Dies setzt jedoch voraus, daß die eige¬ 
ne Statustabelle in der sogenannten 
COMMON-Memory (Ad ressbereich 
$C000-$FFFF) liegt, damit sie auch 
von den Systemroutinen erreicht wer¬ 
den kann. 

Tabelle 2 faßt die benutzbaren Steuer¬ 
zeichen zusammen, hier eine kurze Er¬ 
läuterung: 

Das Zeichen $F3 bedeutet, daß das 
nächste Ausgabe-Zeichen für die Mel¬ 
dung einen ASClI-Wert > 127 hat und 
als solches ausgegeben werden soll. 
Normalerweise werden alle Zeichen 
> 127 als Steuerzeichen betrachtet, mit 
$F3 wird es möglich, auch Sonderzei¬ 
chen/Grafikzeichen in die Statusmel¬ 
dung einzufügen. Beispiel: F3 A4 fügt 
das Copyright- Zeichen (ASCII-Code 
$A4) in die Statusmeldung ein. 

Das Zeichen $F4 fügt Leerzeichen in 
die Ausgabe-Meldung ein. Die Anzahl 
der Leerstellen ward mit dem nächsten 
Zeichen festgelegt. Beispiel: F4 08 
fügt acht Leerzeichen in die Statusmel¬ 
dung ein. $F5 ermöglicht die Auswahl 
von drei verschiedenen Textfragmen¬ 
ten aus der Statustabelle in Abhängig¬ 
keit von den Bits 0 & 1 des D-Regi- 
sters. 

Beispiel: F5 12 43 25 19 
Abhängig vom Inhalt des D-Rcgistcrs 
(bl/bO) werden folgende Textfragmen- 
te in die Statusmeldung eingefügt: 
D(bl/b0) = 00: Text-Nummer 18 
($ 12 ) 

D(bl/b0) =01: Text-Nummer 67 
($43) 

D(bl/b0) = 10: Text-Nummer 37 
($25) 

Das D-Register ward bei jeder Prüfung 
um zwei Bits nach rechts rotiert, so daß 
maximal vier Auswahlfelder zur Ver¬ 
fügung stehen. 

Nach der Ausgabe des Textfragments 
werden automatisch die nächsten drei, 
dem Steuerzeichen folgenden Tcxt- 
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Nummern übersprungen und die Aus¬ 
gabe mit dem Fragment #25 ($19) 
fortgesetzt. Hieraus folgt, daß die Bit- 
Folge elf im D-Register für diese Aus¬ 
gabeform nicht zulässig ist. denn sonst 
würde Meldung #25 doppelt ausge¬ 
geben. 

Die Zeichen $F6 und $F7 ermöglichen 
ein Umschalten des Ausgabeattributes 
auf farbinvertierte Ausgabe ($F7) und 
normale Ausgabe ($F6). 

Für die Umschaltung auf invertierte 
Ausgabe muß zusätzlich das Bit sieben 
des C-Regislcrs gesetzt sein. Der Inhalt 
des C-Registers wird bei jeder Prüfung 
um eine Position nach links rotiert, so 
daß es möglich ist, aus bis zu acht Mc- 
nue-Feldern ein einzelnes Feld invers 
zu setzen (wie zum Beispiel beim 
Drucker-Status). 

Beispiel: F7 41 F6 gibt den Buchstaben 
’A’ innerhalb der Statusmeldung inver¬ 
tiert aus, wenn das MSB des C-Regi¬ 
sters auf ’ 1 ’ gesetzt ist. 

Das Steuerzeichen $F8 wandelt die im 
Register HL spezifizierte Binärzahl in 
eine Dezimalzahl um und fügt sie for¬ 
matiert, das bedeutet mit vorangestell- 
ten Nullen, in die Statusmeldung ein. 
Hier sind nur dreistellige Zahlenwerte 
zulässig (000..999). 

Beispiel: HL = $0014 , das Zeichen 
$F8 würde diese Zahl in 020 umwan¬ 
deln und ausgeben. 

Um einen beliebigen Text in die Status¬ 
meldung einzufügen, benutzt man das 
Steuerzeichen $F9. Hs werden jeweils 
sechs Zeichen eingefügt, die über das 
HL-Register addressiert werden. Leer¬ 
stellen, die im Textstring enthalten 
sind, werden nicht mit ausgegeben. 
Beim JOYCE wird dieses Steuerzei¬ 
chen für die Ausgabe der Gerätenamen 
(CEN, LPTSIO, ...) benutzt. 

$FA, $FB und $FC werden wieder zur 
Zahlcnumwandlung benutzt, wobei 
hier die auszugebende Zahl im DE-Re- 
gister übergeben wird (siehe Tabelle 
2). Die Ausgabe erfolgt unformatiert, 
also ohne vorangestellte Nullen. 

Beispiel: FB wandelt die im E-Registcr 
enthaltene Binärzahl in eine Dezimal¬ 
zahl um und fügt sie in die Statusmel¬ 
dung ein. 

Die Zeichen $FD und $FE geben einen 
Laufwerks-Bezeichner (A:, B:, ...) 
aus. Der Unterschied zwischen beiden 
Zeichen besteht darin, daß $FE nur 
dann eine Ausgabe veranlaßt, wenn 
mehr als ein Laufwerk vorhanden ist, 
$FD gibt das Laufwerk unabhängig 
von der Anzahl der vorhandenen Lauf¬ 
werke aus. 

$FF wird dazu benutzt, das Ende des 
Textfragments/der Statusmeldung zu 


kennzeichnen. Alle weiteren Zeichen, 
die einen ASCIl-Wert > 127 aufwei¬ 
sen, werden als neue Text-Nummer in¬ 
terpretiert. die eventuell in eine Status¬ 
meldung oder ein anderes Textfrag¬ 
ment eingefügt werden soll. Dazu wird 
einfach das MSB gelöscht, und man er¬ 
hält die neue Text-Nummer. Auf diese 
Weise lassen sich eine große Anzahl 
verschiedener Meldungen bei relativ 
geringem Speicherplatz-Bedarf zusam¬ 
menfassen. Dekodieren wir nun die 
fünf Bytes der oben angegebenen Sta¬ 
tusmeldung #0. so erhalten wir fol¬ 
gendes Ergebnis: 

$FE gibt den Lauferks-Bezeichner des 
aktuellen Laufwerks aus, wenn mehre¬ 
re Laufwerke vorhanden sind, zum 
Beispiel: 

A: 

$C3 fügt das Textfragment #67 ($43) 
in die Meldung ein: 

Laufwerk 

$BC fügt das Textfragment # 60 ($3C) 
in die Meldung ein: 

nicht bereit 

$C1 fügt das Textfragment #65 ($41) 
in die Meldung ein: 

- Wiederholen, Ignorieren oder Abbrechen? 
$FF bezeichnet das Ende der Status¬ 
meldung und beendet die Ausgabe. 

Routinen zur Bearbeitung 

Damit Sie diese Informationen auch 
verwerten und ’eigenc' Statustexte er¬ 
zeugen können, folgt hier eine Be¬ 
schreibung der vom Terminal-Emula¬ 
tor für die Bearbeitung von Statusmel¬ 
dungen angebotenen System-Routinen 
(vergleich Tabelle 3): 

TE STL INIT $0ABC 
wird während der System-Initialisie¬ 
rung aufgemfen und setzt das Status- 
zeilen-Flag auf $FF (=ON). 

TE STL OFF (ESC 0) $0AC2 
löscht die Statuszeile und setzt das Sta- 
tuszeilen-Flag auf 0 (=OFF). 

TE STL ON (ESC 1) $0AC5 
löscht die Statuszeile und setzt das Sta- 
tuszeilen-Flag auf $FF ( = ON). 

TE STL PRINT MSG $0AD2 
wird vom BIOS zur Ausgabe von Sta- 
tusmeldungen benutzt und gibt den Sta¬ 
tus entweder auf der Statuszeile (wenn 
eingeschaltet) oder direkt am Bild¬ 
schirm aus. 

Statusausgabe beenden $0AF2 
Für die Umschaltung auf invertierte 
Ausgabe muß zusätzlich das Bit sieben 
des C-Registers gesetzt sein. Der Inhalt 
des C-Registers wird bei jeder Prüfung 
um eine Position nach links rotiert, so 
daß es möglich ist. aus bis zu acht Me- 


nue-Feldcrn ein einzelnes Feld invers 
zu setzen (wie zum Beispiel beim 
Drucker-Status). 

Beispiel: F7 41 F6 gibt den Buchstaben 
'A' innerhalb der Statusmeldung inver¬ 
tiert aus, wenn das MSB des C-Regi¬ 
sters auf ’1 ’ gesetzt ist. 

Das Steuerzeichen $F8 wandelt die im 
Register HL spezifizierte Binärzahl in 
eine Dezimalzahl um und fügt sie for¬ 
matiert, das bedeutet mit vorangestell¬ 
ten Nullen, in die Statusmeldung ein. 
Hier sind nur dreistellige Zahlenwerte 
zulässig (000..999). 

Beispiel: HL = $0014 , das Zeichen 
$F8 würde diese Zahl in 020 umwan¬ 
deln und ausgeben. 

Um einen beliebigen Text in die Status¬ 
meldung cinzufügen, benutzt man das 
Steuerzeichen $F9. Es werden jeweils 
sechs Zeichen eingefügt, die über das 
HL-Register addressiert werden. Leer¬ 
stellen, die im Textstring enthalten 
sind, werden nicht mit ausgegeben. 
Beim JOYCE wird dieses Steuerzei¬ 
chen für die Ausgabe der Gerätenamen 
(CEN, LPT SIO. ...) benutzt. 

$FA. $FB und $FC werden wieder zur 
Zahlenumwandlung benutzt, wobei 
hier die auszugebende Zahl im DE-Re- 
gister übergeben wird (siehe Tabelle 
2). Die Ausgabe erfolgt unformatiert, 
also ohne vorangestellte Nullen. 
Beispiel: FB wandelt die im E-Regislcr 
enthaltene Binärzahl in eine Dezimal¬ 
zahl um und fügt sie in die Stalusmel- 
dung ein. 

Die Zeichen $FD und $FE geben einen 
Laufwerks-Bezeichner (A:, B:, ...) 
aus. Der Unterschied zwischen beiden 
Zeichen besteht darin, daß $FE nur 
dann eine Ausgabe veranlaßt, wenn 
mehr als ein Laufwerk vorhanden ist, 
$FD gibt das Laufwerk unabhängig 
von der Anzahl der vorhandenen Lauf¬ 
werke aus. 

$FF wird dazu benutzt, das Ende des 
Textfragments/der Statusmeldung zu 
kennzeichnen. 

Alle weiteren Zeichen, die einen 
ASCII-Wert > 127 aufweisen, werden 
als neue Text-Nummer interpretiert, 
die eventuell in eine Statusmeldung 
oder ein anderes Textfragment einge¬ 
fugt werden soll. Dazu wird einfach 
das MSB gelöscht, und man erhält die 
neue Text-Nummer. Auf diese Weise 
lassen sich eine große Anzahl verschie¬ 
dener Meldungen bei relativ geringem 
Speicherplatz-Bedarf zusammenfas¬ 
sen. Dekodieren wir nun die fünf Bytes 
der oben angegebenen Statusmeldung 
#0, so erhalten wir folgendes Ergebnis: 
$FE gibt den Lauferks-Bezeichner des 
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- Laufwerks-Status: 

0 LW: Laufwerk nicht bereit - Wiederholen, Ignorieren oder Abbre- 
chen? , 

1 LW: Diskette schreibgeschützt - Wiederholen, Ignorieren oder 

Abbrechen? ... 

2 LW: Spur n Suche ohne Erfolg - Wiederholen, Ignorieren oder 
Abbrechen? 

3 LW: Spur n, Sektor n Datenfehler - Wiederholen, Ignorieren 
oder Abbrechen? 

4 LW: Spur n, Sektor n keine Daten - Wiederholen, Ignorieren 
oder Abbrechen? 

5 LW: Spur n, Sektor n Adresseintrag fehlt -Wiederholen, Ignorie¬ 
ren oder Abbrechen? 

6 LW: ungültiges Format - Wiederholen, Ignorieren oder Abbre- 

chen? , . ... 

7 LW: unbekannter Fehler - Wiederholen, Ignorieren oder Abbre¬ 
chen? 

8 LW: Diskette wurde gewechselt - Wiederholen, Ignorieren oder 

Abbrechen? . , .,, 

9 LW: falsche Diskette - Wiederholen, Ignorieren oder Abbre¬ 
chen? 

Die Angabe des Laufwerks (LW:) erfolgt nur, wenn zwei oder mehr 

Laufwerke vorhanden sind) 


- System-Status: 

10 CP/M Plus Amstrad Consumer Electronics plc v 1.4, 61K TPA, 
(zusätzliche Info ist abhängig von der vorhandenen Hardware) 

16 Bitte Diskette für LW: einlegen, dann irgendeine Taste drücken 
(Meldung erscheint, wenn nur ein LW vorhanden ist und ein 
zweites LW vom System 'emuliert' wird) 

17 GERÄT: nicht bereit - Wiederholen, Ignorieren oder 
Abbrechen? 

19 Laufwerk ist LW: (Meldung erscheint, wenn nur 1 LW vor¬ 
handen und die Statuszeile eingeschaltet ist) 


- Drucker-Status: 

20 Drucker: Aktiv 

21 Drucker: On Line 

22 Drucker: Off Line 

23 Drucker: Papier zu Ende 

24 Drucker: Papier einlegen 

25 Drucker: Andruck offen 

26 Drucker: FEHLER - Unterlauf 

27 Drucker: FEHLER - Drucker RAM 

28 Drucker: FEHLER - Unzul. Befehl 

29 Drucker: FEHLER - Druck-Fehler 

30 Drucker: kein Drucker 

Die Statuszeile für Drucker-Meldungen wird durch die folgenden 
Meldungen erweitert, die beim Aufruf über das D-Register definiert 
werden: 

- in Zeile n / Seitenanfang 
-LF 

-FF 

- Entwurf / Korrespondenz 

- PE ignorAus / PE ignor:Ein 

- Hex:Aus / Hex:Ein 

- Reset 


Code: Bedeutung: 

$F3 der ASCII-Code des nächsten Ausgabe-Zeichens ist 
> 127 ($7F) 

$F4 zusätzliche Leerzeichen ausgeben 

$F5 fügt Text aus der Statustabelle in die Statusmeldung ein 
(Auswahl durch D (bO/bl), siehe Text) 

SF6 Ausgabe-Attribute auf 'normal' setzen 

$F7 Ausgabe-Attribute auf 'invers' setzen 

(C b7 muß T sein, siehe Text) 

$F8 formatierte Ausgabe einer Dezimalzahl (000..999, 

HL = Zahl) 

$F9 Text einfügen (ohne Leerstellen, z.B. Gerätenamen) 

$FA unformatierte Ausgabe einer Dezimalzahl (0.. 65535, 

DE = Zah!) 

$FB unformatierte Ausgabe einer Dezimalzahl (0..255, 

E = Zahl) 

$FC unformatierte Ausgabe einer Dezimalzahl (0. .255, 

D = Zahl) 

$FD Laufwerks-Bezeichner (LW:) ausgeben 

$FE Laufwerks-Bezeichner (LW:) ausgeben (nur bei 2 und 

mehr LW) 

$FF Text-Ende (EOT) 

Alle weiteren Codes mit ASCII-Werten >127 ($7F) werden als Text- 

Nummer interpretiert indem das MSB (Bit 7) gelöscht wird. 


Tabelle 2: Steuercodes ßr die Erzeugung von Statusmeldungen 


TE STL INIT 

Eing.: 

Ausg.: 

Benutzte Register: A 

Adresse: S0ABC 
keine Parameter 
keine Parameter 

TE STL OFF (ESC 0) 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE. HL 

Adresse: $0AC2 
keine Parameter 
keine Parameter 

TE STL ON (ESC 1) 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0AC5 
keine Parameter 
keine Parameter 

TE STL PRINT MSG 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0AD2 

B = Text-Nummer 
keine Parameter 

Statusausgabe beenden 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: S0AF2 
keine Parameter 
keine Parameter 

TE SHOW DRIVE 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0AFD 
keine Parameter 
keine Parameter 

Statuszeile Löschen 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0B17 
keine Parameter 
keine Parameter 

TE STL SETDRIVENUM 

Eing.: 

Ausg.: 

Benutzte Register: A, C 

Adresse: $0B20 

C = Laufwerksnummer (A = 0, 

B = 1, •) 

keine Parameter 

TE STL ASK 

Eing.: 

Ausg.: 

Benutzte Register: A 

Adresse: $0B25 
keine Parameter 

A = Statusz.-Flag 
($00 = OFF/SFF = ON) 

TE STL PREPARE 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0B2A 

A = linke Spalte für die Text- 
Ausgabe 

B = Textnummer 

Alle anderen Register entspre¬ 
chend der Ausgabemeldung 
keine Parameter 

TE STL CLEAR 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0B4D 
keine Parameter 
keine Parameter 

TE PTR STL PREPARE 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0B6B 
keine Parameter 

D = akt. Attribute Code 

E = Cursor-Ticker 

TE PTR MSG PREPARE 

Eing.: 

Ausg.: 

Benutzte Register: A, BC, DE, HL 

Adresse: $0B7D 

A = Textnummer 

BC & DE enthalten Status¬ 
masken entspr. der 
gew. Ausgabemeldung 
keine Parameter 

TE PTR STL RESTORE 

Eing.: 

I Ausg.: 

1 Benutzte Register. A, BC, DE, HL 

Adresse: $0BA1 

D = Attribute-Code 

E = Cursor-Ticker 
keine Parameter 
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aktuellen Laufwerks aus, wenn mehre¬ 
re Laufwerke vorhanden sind, zum 
Beispiel: 

A: 

$C3 fügt das Textfragment #67 ($43) 
in die Meldung ein: 

Laufwerk 

$BC lugt das Textfragment # 60 ($3C) 
in die Meldung ein: 

nicht bereit 

$C4 fügt das Textfragment #65 ($41) 
in die Meldung ein: 

-Wiederholen, Ignorieren oder Abbrechen? 

$FF bezeichnet das Ende der Status¬ 
meldung und beendet die Ausgabe. 

Routinen zur Bearbeitung 

Damit Sie diese Informationen auch 
verwerten und 'eigene' Statustexte er¬ 
zeugen können, folgt hier eine Be¬ 
schreibung der vom Terminal-Emula¬ 
tor für die Bearbeitung von Statusmel¬ 
dungen angebotenen System-Routinen 
(vergleich Tabelle 3): 

TE STL 1NIT $0ABC 
wird während der System-Initialisie¬ 
rung aufgerufen und setzt das Status- 
zeilen-Flag auf $FF (=ON). 

TE STL OFF (ESC 0) $0AC2 
löscht die Statuszeile und setzt das Sta- 
tuszeilen-Flag auf 0 ( = OFF). 

TE STL ON (ESC 1) $0AC5 
löscht die Statuszeile und setzt das Sta- 
tuszeilen-Flag auf $FF ( = ON). 

TE STL PRINT MSG $0AD2 
wird vom BIOS zur Ausgabe von Sta¬ 
tusmeldungen benutzt und gibt den Sta¬ 
tus entweder auf der Statuszeile (wenn 
eingeschaltet) oder direkt am Bild¬ 
schirm aus. 

Statusausgabe beenden $0AF2 
schließt die BlOS-Statusausgabe ab 
und schickt ein CR/LF an den Bild¬ 


schirm, wenn die Ausgabe nicht auf 
der Statuszeile erfolgte. 

TE SHOW DRIVE $0AFD 
zeigt an, welches Laufwerk vom Sy¬ 
stem unterstützt wird (A: oder B:), 
wenn nur ein Laufwerk vorhanden ist. 
Um eine Anzeige zu erhalten, muß die 
Statuszeile eingeschaltet sein. 
Statuszeilc löschen $0B 17 
löscht die Statuszeile, wenn sie einge¬ 
schaltet ist. 

TE STL SET DRIVNUM $0B20 
legt die Laufwerksnummer für TE 
SHOW DRIVE fest. 

TE STL ASK $0B25 

gibt das Statuszeilen-Flag zurück 

($00/$FF). 

TE STL PREPARE $0B2A 
Vorbereitung und Aufruf der Status¬ 
ausgabe auf der Statuszeile. 

TE STL CLEAR $0B4D 

löscht die Statuszeile (keine Prüfung, 

ob die Statuszeile eingeschaltet ist). 

Die Routinen für die Ausgabe des 
Drucker-Status unterscheiden sich et¬ 
was von denen, die vom BIOS benutzt 
werden. Wenn das BIOS eine Status¬ 
meldung ausgibt, wird die Statuszeile 
einfach überschrieben, der Hinter¬ 
grund ist verloren. Bei der Ausgabe der 
Statusmeldungen für den Drucker wird 
der Hintergrund gesichert und nach 
Abschluß der Statusbearbeitung wider- 
hergestellt, es gehen also keine Bild¬ 
schirm-Informationen verloren. 

Will man diese Routinen für die eigene 
Status-Ausgabe benutzen, benötigt 
man jedoch zusätzliche, detailierte 
Kenntnisse der Interrupt-Programmie¬ 
rung. so daß dies nur dem erfahrenen 
Programmierer Vorbehalten bleibt. Für 
eigene Versuche seien sie dennoch hier 
aufgeführt: 

TE PTR STL PREPARE $0B6B 
sichert die aktuelle Bildschirmzeile und 


blendet die Drucker-Statuszeile ein. 
Das aktuelle Ausgabeattribute und der 
aktuelle Cursor-Ticker (Interrupt- 
Zähler) werden über DE zurückge¬ 
geben. 

TE PTR MSG PREPARE $0B7D 
bereitet, ähnlich der Funktion TE STL 
PREPARE (siehe oben), die Statusaus¬ 
gabe für den Drucker vor und ruft die 
Ausgabe-Routine auf. 

TE PTR STL RESTORE $()BA 1 
schließt die Drucker-Statusausgabe ab 
und stellt den ursprünglichen Statuszei- 
len-Inhalt wieder her. 

Damit zunächst genug über die Status¬ 
ausgabe. Das Programm SMENU (sie¬ 
he Listing) demonstriert, wie Sie Ihre 
neuen Betriebssystem-Kenntnisse an¬ 
wenden können. Das Wechseln der 
Cursor- und Auswahl fehler erfolgt 
hierbei mit den Cursor- (Pfeil-) Tasten. 
Wie wäre es denn zum Beispiel mit ei¬ 
nem Programm zur Einstellung der 
SlO-Parameter oder zur Änderung der 
Schriftarten des Druckers über die Sta¬ 
tuszeile? Viel Spaß beim Program¬ 
mieren! 

Norbert Finke/rs 


Hinweis: 

1. Alle im Beitrag aufgeführten und verwendeten 
Adressen beziehen sich auf die BIOS- Version 1.4 
(CP/M-Systemdatei JI4GCPMJ. PMS), 

2. In Ermangelung offizieller Dokumentation wurden 
die Bezeichnungen (Namen) der beschriebenen Routi¬ 
nen, in Anlehnung an die ROM-Rontinen der CPC- 
Computer, vom Autor erfunden 

.1. Da sämtliche hier erläuterten Routinen in der Sy¬ 
stem-Speicherbank (Bank # 0) liegen, muß vor dem 
Aufruf die Speicherltank umgeschaltet werden. Dazu 
Hißt sich die BIOS■ Punktion #3 0 (VSERF) verwen¬ 
den, die mit 
CALL 0FC5AH 
DEFV routine 

aufgerufen werden kann, 'routine ’ bezeichnet dabei die 
Adresse der gewünschten System-Routine in der Spei¬ 
cherbank #0. 

Alle Standard-Register werden bei der Umschahung 
der Speicherbänke gesichert, so daß sie für die Über¬ 
gabe von Parametern verwendet werden können. 



; SMENU.MAC - Demonstrations-Programm zur Nutzung 
; der Systemroutinen zur Ausgabe von Status- 
; meldungen auf der Statuszeile. 

; Rechner: ' PCW 8256/8512 (JOYCE) 

; Assembler: M80.COM (Microsoft.) 

; CP/M-Vers.: CP/M 3 (PLUS) v. 1.4 
; v/ritten 1990 by NoFi 


strout equ 00009h ;BDOS-Funktion PRINT 

;STRING 

dcio equ 00006h ;BDOS Direct Console 

/' I/O 

;zunächst die Status-Routine in die 
;COMMON-Memory (SC000-SFFFF) 

;übertragen 


;EQUATES: 

eot equ OOOffh 

biosStbl equ 009cah 

biosSuserf equ 0fc5ah 

te_stl prepare equ 00 b 2 ah 

te_stl_clear equ 00b4dh 

bdos equ 00005h 


;Textende-Zeichen 
;Adress-Eintrag der 
;Statustabelle des 
; BIOS 

;BIOS-Einsprung 
;(Userf) 

; Einsprung Systein- 
;routine 

;Einsprung System- 
;routine 
;BDOS-Einsprung 


ld 

hl,(bdos+1) 

;Untere Adresse 
;CP/M-System 

dec 

h 

;Paae -1 

ld 

a,h 

;prufen, ob noch im 

cp 

OcOh 

;COMMON-Memory 

3 r 

c,mem$err 

nicht genug 
;Speicher - 

ld 

1,0 

;HL = Page-Start 

ld 

(stlSrout),hl 

;für Aufruf sichern 

ld 

sp,hl 

;Stack-Pointer 
;setzen 

ld 

de,stlSout 

;Startadr. Status- 
Ausgabe 
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ex de,hl /Übertragung Vorbe- 

;reiten 

ld bc,stlSend-stISrout /Routine/ 
/Statusmeldung 

ldir ; in COMMON-Meinory 

/übertragen 

dann Auswahlmaske/Cursormaske für 
Statusmeldung erzeugen 


callSstl 


genSmask: 


ld 

ld 

ld 

xor 

inc 


hl,stat$mask 
c,(hl) 
b, 4 

a 

hl 

(hl) 


or 
rrca 
rrca 

djnz gen$mask 


ld 

ld 

ld 


xor 

ld 


d,a 

hl, (stlSrout) 


/HL auf Statusmasken 
/Cursor-Maske -> C 
/Zähler für Auswahl- 
/maske 
,-A = o 

/HL auf nächstes 
/Statusbyte 
/Status holen 
/und Maske erzeugen 

/und weiter, bis 
/Maske fertig 

;ke -> D 


stlSrout: 


;Auswahl-Mas 
/Startadresse 
/Statusausgabe 
1,smsg-stl$out /Offset zur 

/Statusmeldung 

System-Routine aufrufen (Status 
ausgeben) 

/A-0 (linke Spalte) 

;B=0 (Nr.der Status- 
/meldung) 

/BIOS-Funktion #30 
/(USERF) 

/Startadr. Status- 
/ausgabe 

Eingabe zur Änderung des Status bzw. 
Cursorfeldes von der Tastatur holen 
und auswerten 


a 

b,a 


call biosSuserf 
defw $ 


ld 

ld 


c,dcio 
e,Ofdh 


call bdos 
ld hl,statSmask 
01 

z,left 
06 

z,right 
Oleh 
z,down 
Olfh 
z.up 
Olbh 

nz,callSstl 


<?P 

Dt 

cp 

D r 
cp 
DE 
cp 
1 E 
cp 
3 r 


;BDOS-Dirct Console 
/I/O 

/Funktion = Console 
/input 

/Taste holen 
/HL -> Cursormaske 
/Taste-Prüfen 
/- Pfeil links - 

;- Pfeil rechts - 

;- Pfeil unten - 

/- Pfeil oben - 
/EXITTaste gedrückt? 
/- kein 'EXIT' - 


Statusausgabe beenden, Statuszeile 
löschen 


call biosSuserf 

defw te_stl__clear 
jp 0 


/Statuszeile wieder 
/löschen 

/und Programm 
/beenden 


Fehlermeldung ausgeben, wenn Routine 
und Statustabelle nicht im COMMON 
Memory liegt 


memSerr: 

ld' 

de,errSmsg 

; Fehlermeldung 


ld 

c, strout 

/über BDOS ausgeben 


call 

bdos 



jP 

0 

/und Programm 




/beenden 


/Cursorfeld nach 

links schieben 

left: 

ld' 

a,(hl) 

/Cursormaske holen 


rlca 


/Maskenbit rotieren 


and 

0f 0h 

/prüfen 


r ä 

nz,m$save 

/-neue Maske sichern 


a, 010h 

/sonst neu setzen 


jr 

mSsave 

/und sichern 


/Cursorfeld nach 

rechts schieben 

right : 

ld' 

a,(hl) 

/Cursormaske holen 

rrca 


/Maskenbit rotieren 


and 

Of 0h 

/prüfen 


mSsave: 

ld 

jr 

nz,mSsave 
a,080h 

callSstl 


/Status-Auswahl 

down: 
nxtSdown: 

ld 

inc 

a,(hl) 


rlca 

j r 

dec 

nc,nxtSdown 
(hl) 


IP 

p,callSstl 


Id 

(hl),2 


jr 

callSstl 


/Status-Auswahl 

up: 

nxtSup: 

ld' 

inc 

a,(hl) 
hl 


rlca 

inc 

ld 

cp 

ir 

nc,nxtSup 
(hl) 
a, 2 
(hl) 

nc,callSstl 


ld 

jr 

(hl) ,0 
callSstl 


/-neue Maske sichern 
/sonst neu setzen 
/Maske sichern 
/und ausgeben 


/Cursormaske holen 
/und aktives Feld 
/suchen 


/wenn gefunden, 
/Auswahl -1 
/- o.k., Status 
/ausgeben - 
/sonst Auswahlmaske 
;= 2 

/und ausgeben 


/Cursormaske holen 
/und aktives Feld 
;suchen 


/dann Auswahl +1 
/und prüfen 

/wenn o.k., Status 
/ausgeben 

/sonst Auswahl = 0 
/und Status ausgeben 


Cursor- und Auswahlmasken zur Dar¬ 
stellung und Auswahl der Status¬ 
meldungen 


statSmask: defb 080 h 

defb o,o,0,0 


;Cursorfeld-Maske 
/4 Statusbytes für 
/die Auswahl 
/(STATUS1/2/3) 


/Fehlermeldung 

errSmsg: defb 'Nicht genug Speicher10,13,'S' 

/Diese Routine und die folgende 
/Statustabelle müssen in die COMMON 
/Memory verschoben werden, bevor sie 
/aufgerufen werden können 

stlSout: push hl /Adresse von smsg: 

/sichern 

ld hl,(biosStbl) /Adresse BIOS- 
/Statustabelle 

ex (sp),hl /und qegen neue 

/Adresse 

ld (biosStbl),hl zaustauschen 
call te stl prepare /Status-Meldung 
/ausgeben 

pop hl /Originaladresse 

/wieder 

ld (biosStbl),hl /zurückspeichern 
ret /und fertig 

Statustabelle zur Ausgabe der Status¬ 
meldungen 

smsg: /Status-Meldung #0 

defb 081h,,082h,,0f6h,' ',0f7h,082h 

defb '1',0f5h,05,06,07,084h,082h,'2',0f5h,05 
defb 06,07,084h,082h,'3',0f5h,05,06,07,084h 
defb 082h,'4',0f5h,05,06,07,084h,088h,eot 
/Textfragment #1 
defb 'STATUS',eot 

;Textfragment #2 
defb 'Menue',eot 

/Textfragment #3 
defb '/', 081 h,eot 

/Textfragment #4 

defb 0 f 6 h, 020 h,Oeh, 020 h, 0 f7h,eot 
/Textfragment #5 
defb 083h,'1',eot 

/Textfragment #6 
defb 083h, '2' ,eot. 

/Textfragment #7 
defb 083h,'3',eot 

/Textfragment #8 
defb '>EXlT<',eot 
stlSend equ S 
end 
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Kleinanzeigen 


Biete Software 


PD-SOFTWARE -.65 bis 2,- Für IBM/ 
Kompat. Kat-Disk, gratis., M. Karbach, 
Remscheider Str. 18, 5650 Solingen IG 


CPC-MAGAZINE, 85-89, Heft DM 1,- 
SOFTWARE billig, 030.751 8612 


Original CPC Software ab 20 DM 
Jens Schneider, Tel.: 02423/2635 


8000 PD & Shareware auf Lager 
ab DM 0,65! KATALOGDISKETTE 
5.25" KOSTENLOS SONDERANGE¬ 
BOT- DER PC-KAUFMANN für 
DM 685, EDV COMPUTER PD EX¬ 
PRESS Willi Stern, Kennedystr. 38, 

8039 Puchheim, Tel.: 089-8002545 
FAX: 089/80 8912 G 


Biete Hardware 


2 CPC464 m. GT65/CTM644/DDI-1/ 
Drucker./JOY/div.Prog,/Liter, 
a. einzeln, VB 850 DM Böttcher 
Bernburger-Str.18, 0-4020 Halle 


PCW 8512 kompl. m. CPS 8256 Inter¬ 
face zusätzl. Scanner. Software: Lo- 
coscript 2.28, Locospell, dBase II, 
Prompt, Faktura, Biorhythmus, 
Astrologie, zahlr. Spiele und 
Sonderhefte. Festpreis DM 550,-. 
Lehmann, Tel. 02104/71161 


CPC 464 + SP 256 + DDI-1 + DMP 
2000 + 5 1/4" STARDRIVE + END¬ 
LOSPAPIER + ca. 25 HEFTE SCHNEI- 
DER/AMSTRAD INT. VB 550 DM 
TEL. 071 21/22657 od. 22592 


PCW 8256 + 256KB + PCI AB '87 
-*- SOFTWARE (TURBO + SPIELE) + 
BÜCHER PREIS VS, TEL. 02373/4597 


CPC 6128 DPM2000 GTG5 5,25 Laufw. 
Joysticks ca. 30 orig. Spiele 
div Lit. Kompl. VB 800, 

Tel. 021 54/40327 nach 18 Uhr 


JOYCE PCW 8512 

MIT VIEL ZUBEHÖR ZU VERKAUFEN. 
TEL, 07805/3655 


CPC 464 grün, Vortex SP 512, 3" -f 
5 1/4" Floppies + dB II + WS + viele 
Spiele + Zubehör. VB 500,-, 
069/672914 


Wegen Umstellung auf Laserdrucker 3 
Stück Drucker 9512 Typenrad günstig 
abzugeben. Tel.: 0 57 02-99 72 
(HerrSchemm) 


Verkaufe CPC 6128 mit GT 65-Monitor, 
EPSON-Drucker RX-80F/T+ (9-Nadler), 
Druckerkabel und ca. 20 3"-Disketten 
mit reichlich Software. Unter anderem: 
Textverarbeitung, Universaldatei, Che¬ 
mie-, Matheprog., Spiele usw. Preis: 
500,- DM VHB. Tel. 0421/581490 


CPC 6128 (grün) + Floppy + Printer 
NLQ 401,700 DM, Tel. 052 51/49596 


Für 6128: dBase II + Buch 90 DM 
5,25"-820 KB 190 DM/UWE LIESS 
08669/37466, 13-17 Uhr 


Verkaufe SCSI-Harddisk-Controller, 80- 
Mega-Harddisk mit Controller, instal¬ 
liert (Autoboot, Software), XT-Karte 
mit 5.25 Floppy und Modem (video¬ 
textfähig, ->Telebanking, etc.) externe 
3.5 Floppy, Monitor 1084, Amiga 500. 
Alles zusammen oder einzeln, günstig. 
David Schlaepfer, Dorfstr. 80, CH-8126 
Zumnikon, Tel. 01 918 10 78 


3,5"-Floppy f, JOYCE, 1x84 Spur, 

365 KB, m. Anschlußkabel u. Pro¬ 
grammdiskette DM 75,-, 061 28/421 53 


Suche Software 


BAVARIAN/F. BOMBER: 06837/7938 


Suche Joyce-Software (vor allem Je¬ 
wels of Darkn./Lord o.t. Rings) T. Dahm, 
St. Johannerstr. 47, 6600 Saarbrücken 


Suche Hardware 


Suche: Graphpad III, Mouse + Pro¬ 
gramm Sonderheft 3 4 f. Joyce, 

06371/3843 


Verschiedenes 


■ Wir räumen unser Lager für ■ 

■ CPC-Zubehör! ■ 

■■■■■■■■■■■■■■■■■ 

■ SOFTWARE (nur Disk) ab 6,- DM, ■ 

■ ca. 1000 Bücher ab 4,00, ■ 

■ Hardware (z.B. GT65 49,-DM), ■ 

■ Zubehör und vieles mehr. ■ 

■ Bestandsliste anfordern !!! ■ 

■ ■ Wir liefern nur, solange ■ ■ 

■ ■ der Vorrat reicht. ■ ■ 

■ CLOOTS-Datentechnik ■ 

■ Kirchstr. 15, Tel: 024 51-4660 ■ 

■ W-5132 Übach-Palenberg G ■ 


Tausche 


ICH SUCHE TAUSCHPARTNER FÜR 
CPC-DISK. LISTEN AN: MARKUS 
MACHEREY, RINNEBACHSTR, 24, 
5166 KREUZAU-4, TEL. 02422/8737 


Club 


• CPC POWER International 8/91 • 
Die Franzine für den CPC/Plusü Jetzt 
wieder da! 5,- DM bar/Scheck. Sofort 
wieder bestellen CPC POWER, PF 
501132, 5 KÖLN 50, 30 DIN A4-Seiten 
stark, anwenderorientiert! 



Berlin 


Löhne/Ostwestfalen 



Eintragungen im Händler¬ 
verzeichnis, nach Städten 
geordnet, kosten je mm 
Höhe 6,- DM bei einer 
Spaltenbreite von 58 mm. 


C-Mixist. t. Snllffimieiiiun llj 'laidteulv:N,wc 
AMSTMß, KHMTiXR 4 «flßt AqbuhMdr S SEHVICE 
CENTRALE. Sjiill ßiirp.lls [Kirclw ftlblnrt« £ ZlUhV 
* A-Z, UÄ' IWis Kt, • Oiv.s 

Fit; 0BERMEER CW’JTIR-IFI EFAX-BIX-Hin-VID-CMV- 
- MEC-EPSOM-TAKMM-BHQrHrR-S-iKO-OKI-SIAR-lOCU-e;: 
an Bsnnhol-Gfirili i SMe 23-4372 1-H »6732 61263246 


Nähere Informationen: 

D MV-Verlag 
Sylvia Stephani 
Telefon (0 56 51) 8 09-380 
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Ein Hauch von Lexus 


Lexikon die Dritte 

Das Jetsain-Programm “Mini-Lexikon“ hat es verdient, ein weiteres Mal in 
verjüngter und verbesserter Form an die Öffentlickeit zu treten. Es möchte 
sich denjenigen vorstellen, die nicht auf Qualität, Komfort und Übersicht¬ 
lichkeit verzichten wollen und dafür gerne bereit sind, etwas mehr Speicher¬ 
platz zu opfern. Aber auch das Speicherplatzproblem ist eigentlich keines 
mehr - dank der Flexibilität des Programms. 


Mit dem “Lexikon“ können Sie Infor¬ 
mationen zu den unterschiedlichsten 
Themen (zum Beispiel: Rezepte, Rock¬ 
musik etcetera) archivieren, wie Sic cs 
von Ihrem Lexikon her kennen. Sie ge¬ 
ben das Stichwort und den dazugehöri¬ 
gen Erläuterungstext ein. Alles weitere 
entnehmen Sie bitte den folgenden Er¬ 
klärungen. 

Das Programm ist in vier Menüs ge¬ 
gliedert: 

1. das Hauptmenü mit dem Optionen¬ 
menü 

2. das Printermenü 

3. das Filesmenü 

4. das Diskettenmenü 

Da alle Menüs über einen eigenen 
Hilfstext verfügen, dürfte auch Ihren 
Kindern der Umgang mit dem Pro¬ 
gramm nicht schwerfallen; deshalb sei 
dazu nur das Nötigste erklärt: 


Das Hauptmenü und 
das Optionenmenü 

< E> ingabe: Hier können Sie Ihre Da¬ 
tensätze eingeben. Jede Zeile muß mit 

< RETURN >, der gesamte Satz mit 
Gitter(#) beendet werden. Es emp¬ 
fiehlt sich, wie von Textprogrammen 
gewohnt, ab und zu zwischenzuspei¬ 
chern. Sie können durch erneutes An¬ 
wählen unter dem gleichen Stichwort 
mit der Eingabe fortfahren. Der Daten¬ 
satz wird dadurch nicht überschrieben. 
<S>uchen: Nach Eingabe des Stich¬ 
wortes wird der betreffende Datensatz 
auf dem Monitor angezeigt. 
<K>orrektur: Nach Eingabe eines 
Stichwortes kann der Datensatz Zeile für 
Zeile durch Neueingabe korrigiert wer¬ 
den. Sind alle betreffenden Zeilen berich¬ 
tigt. kann die Bearbeitung beendet und 
der geänderte Satz überprüft werden. 


< L>öschen: Nach Eingabe des Stich¬ 
wortes und Bestätigung der Sicherheits- 
abfrage wird der betreffende Datensatz 
gelöscht. 

<P>rinter, <F>iles, <D>iskette 
und <0>ptionen führen Sie jeweils in 
ein neues Menü. 

E < x > it: Dieser Punkt steht Ihnen in 
allen Menüs zur Verfügung. Das Pro¬ 
gramm wird damit beendet und kehrt 
zu Basic zurück. Zuvor wird jedoch die 
geöffnete Datei geschlossen. 

Das Optionenmenü enthält folgende 
Punkte: 

<I>ndex: Der Index ist ebenfalls bei 
den Funktionen < S > uchen. < K >or- 
rektur und < L>öschen abrufbar. Alle 
Stichworte werden in alphabetischer 
Reihenfolge auf dem Monitor ange¬ 
zeigt. 

<L>exikon: Alle Datensätze werden 
in alphabetischer Reihenfolge auf dem 
Monitor angezeigt. Die Ausgabe kann 
jederzeit beendet werden. 

<C> lear: Auch dieser Punkt steht Ih¬ 
nen in allen Menüs zur Verfügung. Das 
Programm kehrt in das Ausgangsmenü 
(in der Regel das Hauptmenü) zurück. 

Das Printermenü 

Es ist das einzige Menü, bei dem Sie 
das aktuelle Laufwerk und die aktuelle 
Datei nicht mehr im Blickfeld haben. 
Statt dessen können Sie wählen, ob der 
Ausdruck als <E>ntwurf, <Kor¬ 
respondenz oder in < M > icroschrift 
erfolgen soll. 

<S>uchen: Nach der Stichworteinga¬ 
be wird der betreffende Datensatz aus- 
gedruckt. 

<I>ndcx: Das Inhaltsverzeichnis 
wird alphabetisch ausgedruckt. 
<L>cxikon: Alle Datensätze werden 
in alphabetischer Reihenfolge ausge¬ 
druckt. Der Vorgang kann jederzeit ge¬ 
stoppt werden. 

<W>ählen: Der Datensatz wird Ih¬ 
nen nach der Stichworteingabe auf dem 
Monitor angezeigt. Erst dann bestim¬ 
men Sie, ob er ausgedruckt wird. 
<Z>eigen: Hiermit können Sie das 
gesamte Lexikon “durchblättern“, 
wenn Sie zum Beispiel Datensätze zu 
einem bestimmten Thema ausdrucken 
lassen wollen. 

Das Filesmenü 

Möchten Sic wissen, welche Dateien 
das Programm zuladen kann? Kein Pro¬ 
blem! Beim Anwählen des Filesmenüs 
zeigt es Ihnen selbsttätig die Lexikon- 
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Dateien des mit der Variablen “lw$“ 
bestimmten Laufwerks an. 

Dateien <A><B><M>: Hiermit 
können Sie auch die anderen Laufwer¬ 
ke einsehen. Das Standardlaufwerk 
bleibt dabei bestehen. 

<L>öschen: Nach Bestätigung der 
Sicherheitsabfrage wird die aktuelle 
Datei gelöscht. 

<U>mbencnnen: Nach Eingabe des 
neuen Namens wird die aktuelle Datei 
mit dem neu einzugebenden Namen 
versehen. 

<W>echseln: Sie können die Datei 
wechseln oder eine neue einrichten. 

Das Diskettenmenü 

Beim Anwählen des Menüs zeigt Ihnen 
das Programm selbsttätig alle gespei¬ 
cherten Programme und Dateien auf Ih¬ 
rer Diskette an. 

Directory <A > < B > < M > : Durch 
Druck der entsprechenden Taste kön¬ 
nen Sic auch die anderen Laufwerke 
einsehen. 

<D>iskctte: Haben Sie eine neue 
Diskette in das angemeldete Laufwerk 
eingelegt, so können Sie diese hiermit 
anmelden. 

<L>aufwerk: Hier wechseln Sie das 
Laufwerk. Alle Dateioperationen erfol¬ 
gen nun auf dem neu angemeldeten 
Laufwerk. 

<C>lear: Die Clear-Funktion ist im 
Diskettenmenü gesperrt, wenn Sie zu¬ 
vor im Filesmenü eine Datei gelöscht 
haben. 

Bevor Sie das Listing eingeben, soll¬ 
ten Sie etwas über die Besonderhei¬ 


ten des Programms erfahren, die Ihnen 
die Arbeit angenehmer machen sollen. 

Zur Eingabe 

1. Beim Start des Programms wird mit 
dem Befehl “OPTION FILES lw$“ das 
Laufwerk A zum Standardlaufwerk und 
damit zum Speichern Ihrer Daten be¬ 
stimmt. Möchten Sie Ihre Dateien auf 
Laufwerk B speichern, ändern Sie bitte 
in Zeile 5560 die Variable “lw$“ in: 
lw$=“B“. 

2. Im Gegensatz zu den Vorgängern 
dieses Programms ist die Stichwortein- 
gabc auf 15 Zeichen (statt 20) begrenzt. 
Wollen Sie Daten aus den vorigen Pro¬ 
grammen verarbeiten, müssen Sie in 
den folgenden Zeilen jeweils 15 durch 
20 ersetzen: 560, 590, 600, 1490, 1540, 
1550 u. 4160. 

Zudem müssen folgende Zeilen geän¬ 
dert werden: 

1740 PRINT;w$;“ “;CHR$(149); 

1760 .MOD 50 in MOD 40 ändern 

2360 LPRINT;w$;“ * 

2380/2400 ....MOD 5 in MOD 4 än¬ 
dern 

Bitte vergessen Sie nicht, Ihre alten Da¬ 
teien in die Dateitypen .LEX und .IND 
umzubenennen! 

3. Da Jetsam-Dateien stets geschlossen 
werden müssen, ist dieses Programm 
zweifach gesichert. Mit dem Befehl 
“OPTION RUN“ ist die Stoptaste wir¬ 
kungslos; ein “ON ERROR GOTO” in 
Zeile 90 sorgt dafür, daß Ihre Dateien, 
sollte wider Erwarten ein Fehler auftre- 
ten, stets geschlossen werden. Das hat 
den Nachteil, daß Sie von Basic keine 
Fehlermeldungen erhalten, wenn Ihr 
abgetipptes Listing nicht korrekt ist. 


Nehmen Sie deshalb diesen Befehl her¬ 
aus, bis Ihr Programm einwandfrei 
läuft. Denken Sie im Falle eines Falles 
aber bitte daran. Ihre Datei mit 
“CLOSE #1“ zu schließen, bevor Sie 
einen Fehler editieren. 

Bleibt noch zu sagen, daß der Platz hier 
leider nicht ausreicht, um noch die Feh¬ 
lerbehandlungen und einige Besonder¬ 
heiten des Programms zu beschreiben. 
Da es jedoch sehr übersichtlich ist, fin¬ 
den Sie alles weitere sicher selbst 
heraus. 

Die Startdiskette ist sehr einfach er¬ 
stellt. Sie benötigen Ihre Systemdatei 
J??GCPM3.EMS. SUBMIT.COM, BA- 
SIC.COM, LEXIKON.BAS und für die 
Arbeit mit Endlospapier die Datei PA- 
PER.COM. Mit RPED.BAS erstellen 
Sie dann folgende PROFILE.SUB: 

paper 12 
basic lexiken 

Wenn Sie alles auf Ihre Startdiskette 
kopiert haben, kann cs bereits losge¬ 
hen. Viel Vergnügen!!! 

(Wolfgang Horstmann/rs) 



LISTING »LEXIKON <, REMARK = >'<. 

< 1 > 10 ' ******************* 

< 2> 20 ' *.. LEXIKON.BAS... * 

< 3> 30 1 *- 06/1991_ * 

< 4> 40 ' * by W. Horstmann * 

< 5> 50 ' * & CPC Internat. * 

< 6> 60 ' ******************* 

< 7> 70 ' 

<33> 80 GOSUB 5490 'Initialisierung und Titel 

<36> 90 OPTION RUN 

<51> 100 ON ERROR GOTO 5200 

< 20 > 110 ' 

< 5> 120 PRINT FNlocS(26,0);line$ 

<27> 130 PRINT;TAB(16);invon$;"_ Bitte die Date 

ndiskette in Laufwerk ";lw$;" einlegen!.... " 
;invoff$;line$ 

<13> 140 taste$=l'NPUT$ (1) 

<71> 150 RESET 

<55> 160 OPTION FILES lw$ 

<32> 170 ' 

<96> 180 GOSUB 3450 'Dateien anzeigen 

<79> 190 GOSUB 3970 'Datei wählen und öffnen 

< 9> 200 GOTO.. 410 'Hauptmenue 
< 21 > 210 ' 

<36> 220 ' - UP Auf Antwort warten - 

<25> 230 ' 


<26> 240 antwort$=INKEY$:IF antwort$="" THEN GOTO 
240 

<11> 250 antwort$=UPPER$(antwortS):antwort=INSTR(m 
atchS, antwortS) 

<57> 260 IF antwort=0 THEN GOTO 240 
<82> 270 RETURN 
<35> 280 ' 

<28> 290 ' - UP Auf Taste warten - 

<20> 300 ' 

< 5> 310 PRINT FNloc$(26,0); line$ 

<22> 320 PRINT FNinfoS("Weiter mit beliebiger Tast 

<13> 330 taste$=INPUT$ (1) 

<77> 340 RETURN 
<30> 350 ' 

<32> 360 ' 

<34> 370 ' ******************** 

<56> 380 '. Hauptmenue.... 

<38> 390 ' ******************** 

<21> 400 ' 

<42> 410 PRINT FNloeschS 

<92> 420 PRINT FNlocS(2,0);SPC (15) ;"Laufwerk: "; lw 
$;SPC(30);"Datei: "+datfile$ 

< 1> 430 PRINT FNloc$(4,0)+invon$+" <E>ingabe <S>u 

chen <K>orrektur <L>oeschen <P>rinter <F>iles 
<D>iskette <0>ptionen E<x>it "+invoff$ 

<55> 440 match$="ESKLPFDXO": GOSUB 240 
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<75> 

<33> 

<59> 

<37> 

<35> 


<37> 

<44> 

<26> 

<28> 

<30> 

<95> 

<82> 

<27> 

<16> 

< 3> 
<80> 

<25> 

<55> 

< 21 > 

<81> 

<78> 

<45> 

< 1 3 > 
< 75 > 
<79> 

< 1 > 
<26> 
< 10 > 
<25> 
<44> 
<26> 
<36> 
<19> 
< 6 > 

<29> 

<31> 

<27> 

<29> 

<31> 

<49> 

< 86 > 

<65> 
< 75 > 
<45> 
<58> 
<32> 
< 20 > 
<23> 
< 0 > 

<95> 

<72> 

<63> 

<50> 

<39> 

<44> 
<83> 
< 86 > 
<51 > 
< 2 > 

<76> 

<36> 

<14> 

<67> 

<60> 

<50> 

<19> 
<33> 
<31> 
<67> 
< 28> 
<94> 

<49> 

<63> 



450 ON antwort GOTO 550,840,1020,1280,2090,31 

90,4240,5230 

460 ’ 

470 '-Optionen-Menue- 

480 ' 


490 PRINT FNlocS(4,0)+invon$+". 

. <I>ndex <L>exikon <H>elp E<x>it <C> 

lear. "+invoff$ 

500 match$="ILHXC":GOSUB 240 

510 ON antwort GOTO 1620,1860,4780,5230,430 

520 ' 

530 ' ***** EINGABE ***** 

540 ' 

550 PRINT FNlocS(4,1)" Eingabe " 

560 PRINT FNlocS(7,0)"Stichwort: ";STRING$(15 
,46);SPC(20) 

570 PRINT FNlocS(7,10);con$;:INPUT" ",xy$:PRI 


NT coffS 


580 IF xy$="" THEN PRINT FNloeschS:GOTO 430 


Menue 


590 IF LEN (xy$)>15 THEN PRINT bell$:GOTO 550 
600 xy$=UPPERS(xy$):xy$=xy$+SPACES(15-LEN(xy$ 


610 e=SEEKKEY(#1,0,0,xy$) 

620 PRINT FNlocS(6,0);xy$:PRINT line$ 

630 zeile=7 

640 PRINT FNlocS(zeile,0);STRINGS(90,46) 

650 PRINT FNlocS(zeile,0);conS:LINE INPUT xs$ 
660 IF XS$="#" THEN GOTO 720 
670 LSET w$=xy$:LSET S$=XS$ 

680 e=ADDREC( #1,2,0,w$) 

690 PUT #1:zeile=zeile+l 

700 IF zeile=26 THEN GOTO 770 ELSE GOTO 640 
710 ' 

720 erg=CONSOLIDATE(#1) 

730 PRINT cup$;cup$;line$ 

740 PRINT coffS:GOSUB 310 'Taste 
750 PRINT FNloeschS:GOTO 430 'Menue 
760 ' 

770 PRINT FNlocS(26,0);coffS;lineS 
780 PRINT FNinfo$("Bitte zur weiteren Eingabe 
<RETURN> druecken!") 

790 taste$=INPUT$(1) 

800 IF taste$=CHR$(13) THEN PRINT FNlocS(8,0) 
;loeschS:GOTO 630 ELSE GOTO 790 
810 ’ 

320 ' ***** SUCHEN ***** 

830 ' 

840 PRINT FNlocS(4,11)" Suchen " 

850 GOSUB 1420 'Indexabfrage, Stichworteingab 


e 

860 PRINT FNlocS(6,0);xy$:PRINT lineS 
870 PRINT FNlocS(8,0);loesch$;cup$ 

880 WHILE e=0 

890.. GET #1 

900.. PRINT S$ 

910.. suchen=suchen+l 

920.. e=SEEKNEXT(#1,0) 

930.. IF 0=(suchen MOD 19) THEN GOSUB 310:GOT 
O 870 'Taste 

940 WEND 

950 PRINT lineS:suchen=0 
960 IF druck=l THEN druck=0:RETURN 
970 IF lexikon=l THEN lexikon=0:RETURN 
980 GOSUB 310:PRINT FNloeschS:GOTO 430 'Taste 
- Menue 
990 ' 

1000 ' ***** KORREKTUR ****** 

1010 ' 

1020 PRINT FNlocS(4,20)" Korrektur " 

1030 GOSUB 1420 'Indexabfrage, Stichworteinga 
be 

1040 PRINT FNloeschS:PRINT "Bearbeitet wird: 

" ;xy$ 

1050 WHILE e=0 

1060.. GET #1 

1070.. PRINT FNlocS(9,0);loesch$:PRINT sS 

1080.. PRINT FNlocS(15,0)"Diesen Satz neu ein 
geben? <J/N>";SPC(10) 

1090.. raatch$="JN":GOSUB 240:PRINT cup$;loesc 
h$ 

1100.. IF antWOrt=2 THEN GOTO 1180 

1110.. PRINT FNlocS(11,0);STRINGS(90,46) 

1120.. PRINT FNlocS(11,0);con$:LINE INPUT XS$ 

1130.. IF xs$="" THEN PRINT coff$:GOTO 1150 

1140.. LSET s$=xs$:PUT #1:PRINT coffS 

1150.. PRINT FNlocS(15,0)"Weiter mit <SPACE>. 
*. Beenden mit <CAN>" 

1160.. taste$=lNPUTS(l):PRINT cup$;loeschS 

1170.. IF taste$=CHR$(8) THEN GOTO 1200 


< 1> 1180.. e=SEEKNEXT(#1,0) 

<40> 1190 WEND 

< 9> 1200 erg=CONSOLIDATE(#1) 

<96> 1210 PRINT FNlocS(15,0)"Soll der Datensatz ue 
berprueft werden? <J/N>";SPC(10) 

<95> 1220 match$="JN":GOSUB 240:PRINT FNloeschS 


<93> 

<28> 

< 3> 

< 6 > 

< 9> 

< 72> 
<24> 

< 2 6 > 

<94> 

<60> 

< 3> 

< 38> 
<65> 
<35> 
<32> 
<72 > 
<17 > 

< 9> 

<94> 

<25> 

<63> 

<61> 

< 9> 

< 8 > 
< 13 > 
<71> 
< 0> 

<64> 

<24> 

<47> 

<40> 

<96> 

<11> 

<47> 

<91> 

<13> 

< 21 > 

<95> 

<98> 

<12> 

< 5> 
<80> 

<11> 

<42> 

<17> 

<47> 

<22> 

<13> 
<11> 

< 8 > 
<92> 
<50> 
< 8 > 
<58> 
<46> 
<51> 
<20> 
< 0> 
<10> 
<53> 
< 9> 
<12> 
<15> 
<91> 
<48> 
<23> 

<31> 

<14> 


1230 IF antwort=2 THEN GOTO 430 'Menue 
1240 e=SEEKKEY(#l,0,0,xy$):GOTO 860 'Datensat 
z anzeigen 
1250 ' 

1260 ' ***** LOESCHEN ****** 

1270 ' 

1280 PRINT FNlocS(4,32)" Loeschen " 

1290 GOSUB 1420 'Indexabfrage, Stichworteinga 
be 

1300 PRINT"Soll der Datensatz '";xy$;"' geloe 
seht werden? <J/N>" 

1310 match$ = "JN"-.GOSUB 240:PRINT cup$;ioesch$ 
1320 IF antwort=2 THEN GOSUB 1490:GOTO 1300 ' 
Neue Eingabe 
1330 WHILE e=0 OR e=101 

1340.. erg=DELKEY(#1,0) 

1350.. e=SEEKKEY(#l,0,0,xy$) 

1360 WEND 

1370 erg=CONSOLIDATE(#l) 

1380 PRINT FNloeschS:GOTO 430 'Menue 
1390 ' 

1400 '- UP Indexabfrage; Stichwort eingeb 

en, pruefen, bearbeiten - 

1410 ' 

1420 e=SEEKRANK(#1,0,0) 

1430 IF e<>0 THEN GOSUB 5340:GOTO 420 'Fehler 
meldung - Hauptmenue 

1440 PRINT FNlocS(7,0)"Index anzeigen? <J/N>" 
1450 match$="JN":G0SUB 240:PRINT FNloeschS 
1460 ON antwort GOSUB 1700 'Index anzeigen 
1470 ' 

1480 IF index=0 THEN z=7 ELSE index=0:z=22 
1490 PRINT FNlocS(z,0)"Stichwort eingeben: "+ 
STRINGS(15,46);SPC(20) 

1500 PRINT FNlocS(z,19);con$;:INPUT" ",xy$:PR 
INT coffS 

1510 IF xy$<>"" THEN GOTO 1540 ELSE PRINT FN1 
oeschS 

1520 IF druck=0 THEN GOTO 430 'Menue 
1530 druck=0 -.GOTO 2100 ' Printermenue 
1540 IF LEN(xy$)>15 THEN PRINT bell$:G0T0 149 

1550 xy$=UPPER$(xy$):xy$^xy$+SPACE$(15-LEN(xy 

$)) 

1560 e=SEEKKEY(#1,0,0,xy$) 

1570 IF e<>0 THEN GOSUB 5390:GOTO 1490 'Fehle 

rmeldung 

1580 RETURN 

1590 ' 

1600 ' ***** INDEX ***** 

1610 1 

1620 PRINT FNlocS(4,25)" Index " 

1630 GOSUB 1680:index=o 'Index anzeigen 
1640 GOSUB 310:PRINT FNloeschS:GOTO 490 'Tast 
e - Optionen-Menue 
1650 ' 

1660 '- UP Index anzeigen - 

1670 ' 

1680 e=SEEKRANK(#1,0,0) 

1690 IF e<>0 THEN GOSUB 5340:GOTO 430 'Fehler 

meldung - Hauptmenue 

1700 PRINT FNlocS(6,0);lineS 

1710 PRINT FNinfoS("* ****. INDEX. ** 
* * *>•) 

1720 WHILE e=0 OR e=101 

1730.. index=index+l:GET #1 

1740.. PRINT "* ";wS;" "; 

1750.. e=SEEKSET(#l,0) 

1760.. IF 0=(index MOD 50) THEN GOTO 1810 
1770 WEND 

1780 PRINT FNlocS(19,0);line$ 

1790 RETURN 
1800 ' 

1810 PRINT lineS:GOSUB 310 'Taste 

1820 PRINT FNlocS(10,0);loeschS:GOTO 1700 

1830 ' 

1840 ' ***** LEXIKON ***** 

1850 ' 

1860 PRINT FNlocS(4,33)" Lexikon " 

1870 e=SEEKRANK(#1,0,0) 

1880 IF e<>0 THEN GOSUB 5340:GOTO 430 'Fehler 
meldung - Hauptmenue 
1890 WHILE e=0 OR e=101 
1900. . GET #1 
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<47> 

<87> 

<31> 


< 66 > 

<50> 

< 4> 
<18> 
<53> 
<17> 
<36> 

<55> 

<77> 

<93> 

<96> 

< 0 > 
<50> 
< 6 > 
< 9> 
<32> 


<95> 


<63> 

<44> 

<95> 
<98> 
< 2 > 
<75> 
<64> 

<29> 

<51> 
< 1 > 
<37> 
<85> 
<25> 
<94> 
<35> 
<91> 
< 10 > 
< 13 > 
< 16 > 
< 12 > 
< 21 > 
<59> 

<32> 


< 7> 
<43> 
<44> 

< 7> 

< 8 > 
<45> 
< 6 > 

<84> 
<70> 
< 2 > 

< 5> 

< 8 > 
<96> 
<41> 
<79> 

< 8 > 
<50> 

<69> 

<94> 
< 8 > 
<19> 
<50> 


1910. 
1920. 
1930 . 
en 

1940. 

1950. 


ENDE DES LEXIK 


'Optionen-Menue 


******************** 
.... Printermenue 
******************** 


PRINT FNlocS(6,0);w$:PRINT line$ 
e=SEEKKEY(#1,0,0,w$) 

lexikon=l:GOSUB 870 'Datensätze anzeig 

PRINT FNlocS(26,0);line$ 

PRINT FNinfoS("Weiter mit <SPACE>. 
Beenden mit <CAN>") 

I960.. taste$=INPUT$(1) 

1980'WEND taste$=CHR$ ( 8 ) THEN GOTO 2020 

1990 PRINT FNloc$(26,0);line$ 

2000 PRINT FNinfo$("* * * * * 

ONS *****" ) 

2010 taste$=lNPUT$(1) 

2020 PRINT FNloeschS:GOTO 490 
2030 ' 

2040 1 
2050 
2060 
2070 
2080 

2090 PRINT FNlocS(2,0);SPC(15);"<E>ntwurf "+i 
nvonS + norS+invoff. <K>orrespondenz "+in 
vonS+kor$ + mvof f $ + "..., <M>icroschrif t "+invo 
n$+mic$+invoff$ 

2100 PRINT FNlocS(4,0)tinvon$+". <s 

>uchen <I>ndex <L>exikon <W>ählen <Z>eiqen <H 

>elp E<x>it <C>lear. "+invoff$ 

2110 match$="SILWZEKMHXC":GOSUB 240 
2120 ON antwort GOTO 2160,2300,2460,2670,2760 
,3010,3060,3100,4790,5230,420 
2130 ' 

2140 ' ***** SUCHEN ***** 

2150 ' 

2160 PRINT FNloc$(4,12)" Suchen " 

2170 druck=l:GOSUB 1420 'Indexabfrage, Stichw 
ortemgabe 

2180 LPRINT Strichs:LPRINT dop$;xy$:LPRINT st 
richS 

2190 WHILE e=0 

2200.. GET #1 

2210.. LPRINT S$ 

2220.. e=SEEKNEXT(#1,0) 

2230 WEND 

2240 LPRINT strichS:LPRINT 
2250 IF ausdruck=l THEN ausdruck=0:RETURN 
2260 PRINT FNloeschS:GOTO 2100 'Menue 
2270 ' 

2280 
2290 

2300 PRINT FNlocS(4,21)" Index " 

2310 e=SEEKRANK(#1,0,0) 

2320 IF e<>0 THEN GOSUB S340:GOTO 420 
meldung - Hauptmenue 

2330 LPRINT strichS:LPRINT dop$". * INDEX 

$ DER DATEI: "datfileS" *. ":LPRINT strich 

2340 WHILE e=0 OR e=101 

2350.. worte=worte+i:GET #1 

2360.. LPRINT"* ";w$;" 

2370.. e=SEEKSET(#1,0) 

2380.. IF 0=(Worte MOD 5) THEN LPRINT 
2390 WEND 

2400 IF 0=(worte MOD 5) THEN LPRINT strich$:L 
PRINT:LPRINT:GOTO 2420 

2410 LPRINT:LPRINT strichS:LPRINT:LPRINT 
2420 worte=0:GOTO 2100 'Menue 
2430 ' 

2440 ' ***** LEXIKON ***** 

2450 ' 

2460 PRINT FNlocS(4,29)" Lexikon " 

2470 e=SEEKRANK(#1,0,0) 

2480 IF e<>0 THEN GOSUB 5340:G0TO 420 'Fehler 
meldung - Hauptmenue 
2490 PRINT FNlocS(26,0);lineS 
2500 PRINT FNinfoS("Beenden des Ausdrucks mit 
<CAN>") 

2510 LPRINT StrichS:LPRINT dop$"_ * LEXIKO 

N DER DATEI: "datfileS" *_ " 

2520 LPRINT strichS:LPRINT 
2530 WHILE e=0 OR e=101 

2540.. GET #1 

LPRINT StrichS:LPRINT dop$;w$:LPRINT s 


***** INDEX ***** 


'Fehler 


<92> 

< 21 > 

<32> 

< 79 > 

<24> 


2550. . 
trichS 
2560. . 

2570.. 
ken 

2580.. 
2590. 


2600 WEND 


e=SEEKKEY(#1,0,0,w$) 
ausdruck=l:GOSUB 2190 'Datensätze druc 

taste$=INKEYS 

IF taste$=CHR$(8) THEN GOTO 2630 


<81 > 
< 95> 


<90> 

< 9> 

< 12 > 
< 15 > 
<14> 
<84> 

< 12 > 

<72> 

<42> 

< 79 > 

<43> 
<45> 
<14> 
< 17 > 
< 20 > 
<78> 
<53> 
<63> 

< 8 > 
<19> 
<52> 
<92> 
< 66 > 
< 71 > 
<46> 

< 9> 
<51> 
<62> 

<46> 

< 16 > 

<39> 

< 3> 
<95> 

< 88 > 

<37> 

<27> 

<30> 

<85> 

<42> 

< 11 > 

<27> 

<31> 

< 1 > 
<59> 

<39> 

<48> 

< 13 > 
<2 3> 

<10> 

<8 3> 

<96> 

< 0 > 

< 3> 

< 1 > 

< 9> 
<12> 
<72> 

<70> 


< 9> 
<54> 
<91> 

<27> 

< 5> 

< 8 > 
< 11 > 
<80> 


2610 LPRINT strichS 

2620 LPRINT dop$"- * ENDE. DES. LEX 

IKONS*.... strichS 
2630 PRINT FNloeschS:GOTO 2100 'Menue 
2640 1 

2650 ' ***** WAEHLEN ***** 

2660 ' 

2670 PRINT FNlocS(4,39)" Wählen " 

2680 druck=l:GOSUB 850 'Index, Stichwort, Mon 
ltoranzeige 

2690 PRINT FNlocS(26,0);line$ 

2700 PRINT FNinfoS("Datensatz ausdrucken? <J/ 
N> " ) ' 

2710 match$="JN":GOSUB 240 
2720 !F antwort=2 THEN PRINT FNloeschS: GOTO 2 
100 'Menue 

2730 e=SEEKKEY(#1,0,0,xyS) 

2740 GOTO 2180 'Ausdruck 
2750 ' 

2760 1 ***** ZEIGEN ***** 

2770 ' 

2780 PRINT FNlocS(4,48)" Zeigen " 

2790 e=SEEKRANK(#1,0,0) 

2800 IF e<>0 THEN GOSUB 5340:GOTO 420 'Fehler 
meldung - Hauptmenue 
2810 WHILE e=0 OR e=101 

2820.. GET #1 

2830.. PRINT FNlocS(6,0);w$:PRINT lineS 

2840.. e=SEEKKEY(#1,0,0,W$) 

2850.. druck=l:GOSUB 870 'Datensatz anzeigen 

2860.. PRINT FNlocS(26,0);line$ 

287°. . print FNinfoS("Weiter mit <SPACE> * Au 
sdrucken mit <COPY> * Beenden mit <CAN>") 

2880.. tasteS=INPUT$(l) 

2890.. IF taste$=CHR$(8) THEN GOTO 2970 
29 0 °. IF taste$=CHR$(23) THEN e-SEEKKEY(#1,0 
,0,w$) ELSE GOTO 2930 

trichS LPRINT strich $ :LPR INT dop$;w$:LPRINT s 

2920.. ausdruck=l:GOSUB 2190 'Datensatz ausdr 
ucicen 
2930 WEND 

2940 PRINT FNlocS(26,0);lineS 
ONS° * R * N I * N *Mf° $( "* * * * *• ENDE DES LEXIK 
2960 t.aste$ = INPUT$ ( 1 ) 

2980 ? RINT ENioeschS:GOTO 2100 'Menue 

2990 ' ***** DRUCKSCHRIFTEN ***** 

3000 ' 

3010 IF nor$="ein" THEN 2110 'Menue 
off$ IF kor $~" ein " THEN kor$="aus":LPRINT kor 

off$ IF raic$= " ein " THEN mic$="aus":LPRINT mic 

3040 nor$="ein":GOTO 2090 'Menue 
3050 ' 

3060 nor$="aus":IF kor$-"ein" THEN 2110 'Menu 
3070 IF mic$="ein" THEN mic$="aus":LPRINT mic 
3080 kor$="ein":LPRINT koron$:GOTO 2090 'Menu 
3090 ' 

3100 nor$="aus":IF mic$="ein" THEN 2110 'Menu 

off? IF kor$= " ein " THEN kor$="aus":LPRINT kor 

3120 mic$="ein":LPRINT micon$:GOTO 2090 'Menu 

3130 ' 

3140 ' 

3150 ' ******************** 

3160 1 . Filesmenue 

3170 ' ******************** 

3180 ' 

3190 PRINT FNlocS(2,0);SPC(15);"Laufwerk: ";1 
w$;SPC(30);"Datei: "+datfile$ 

3200 PRINT FNlocS(4,0)+invon$ + ". Dateien 

<A><B><M> * <L>oeschen <U>mbenennen <W>echse 

ln <H>elp E<x>it <c>lear. "+invoff$ 

3210 GOSUB 3450 'Dateien anzeigen 
3220 match$="ABMLUWHXC":GOSUB 240 

3 3910°4800 t 5230 G0T0 3280 ' 3290 ' 3300 ' 3540 ,3680 
3240 PRINT FNloeschS:GOTO 430 
3250 * 

3260 1 ***** DATEIEN A/B/M ****** 

3270 1 

3280 lwx$="A":GOTO 3310 
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<95> 

< 22 > 

<15> 

<90> 

<69> 
<91 > 
<46> 

<77> 

<93> 

<25> 

<75> 

<75> 

<53> 

< 0 > 
< 1 > 
< 6 > 
<52> 
<79> 

<7 3> 

< 70 > 
<29> 
<90> 
<98> 
< 2 > 

< 5> 
<58> 
<53> 

<54> 

< 8 > 

< 86 > 

<65> 
< 14 > 
< 13 > 

<44> 

< 3> 
<98> 

<13> 
<16> 
< 19 > 
<24> 
<54> 
<64> 

< 6 > 

<97> 

<51> 

<57> 


< 5> 

<14> 

<23> 

<60> 

<67> 

<77> 

<98> 

<51> 

< 12 > 

<14> 

< 5> 
<87> 

< 0 > 

<26> 

<29> 

< 4> 
<42> 

< 38> 


3290 lwx$="B":GOTO 3310 
3300 1WX$="M" 

3310 IF lwx$=lw$ THEN PRINT bell$:GOTO 3220 ’ 
Menue 

3320 CLOSE #l:OPTION FILES lwx$ 'Laufwerk wec 
hseln 

3330 IF lwx$="M" THEN GOTO 3370 
3340 PRINT FNloc$(26,0); line$ 

3350 PRINT FNinfoS("Bitte pruefen, ob eine Di 
skette eingelegt ist!") 

3360 taste$=INPUT$(1) 

3370 GOSUB 3450:GOSUB 310 'Dateien anzeigen - 
Taste 

3380 PRINT FNloeschS:PRINT FNloc$ ( 26,0);lineS 
3390 PRINT FNinfoS("B ITTE.. WARTEN ! 
") 

3400 OPTION FILES lw$:lwx$=lw$ 'Laufwerk zuru 
eck 

3410 GOSUB 4140:GOTO 3190 'Datei oeffnen - Me 

nue 

3420 ' 

3430 ' - UP Dateien anzeigen - 

3440 ' 

3450 PRINT FNloeschS 

3460 PRINT line$:PRINT "Dateien auf Laufwerk: 
";lwx$: PRINT lineS 

3470 IF FINDS( " *. LEX")="" THEN PRINT "Es sind 
noch keine Dateien eingerichtet !":GOTO 3490 
3480 DIR *. LEX 

3490 PRINT FNlocS( 13,0); lineS 
3500 RETURN 
3510 ' 

3520 ' ***** LOESCHEN ***** 

3530 ' 

3540 PRINT FNlocS(4,27)" Loeschen " 

3550 PRINT FNlocS(16,0) "Soll die Datei "+datf 
ile$+" gelöscht werden? <J/N>" 

3560 match$="JN" :GOSUB 240 

3570 IF antwort=2 THEN PRINT FNlocS( 15,0 ); loe 
sch$:GOTO 3200 'Menue 

3580 CLOSE #1:KILL datf.ile$ : KILL indfile$:spe 
rre=l 

3590 PRINT FNlocS(2 ,0)+lwtext$ 

3600 GOSUB 3450 'Dateien anzeigen 

3610 PRINT FNlocS(16,0) "Soll die Diskette ode 

r das Laufwerk gewechselt werden? <J/N>" 

3620 match$="JN": GOSUB 240 

3630 ON antwort GOTO 4250 ’ Diskettenmenue 

3640 GOSUB 3970:PRINT FNlocS (15 , 0 );loeschS: GO 

TO 3190 'Datei laden - Menue 

3650 ' 

3660 ' ***** UMBENENNEN ***** 

3670 ' 

3680 PRINT FNlocS(4,38)" Umbenennen " 

3690 PRINT FNlocS(16,0)"ALTER NAME: ";file$ 
3700 PRINT FNlocS(17,0) "NEUER NAME: ";STRING$ 
(8,46);SPC(20) 

3710 PRINT FNlocS (17,11) ;con$;: INPUT " ",name 
$:PRINT coffS 

3720 IF name$="" THEN PRINT FNlocS(15,0); loes 
ch$:GOTO 3200 'Menue 
3730 name$=UPPER$(nameS) 

3740 IF RIGHTS(nameS,4)=".LEX" THEN PRINT bei 
1$:GOTO 3700 

3750 IF LEN(nameS)>8 THEN PRINT bell$:GOTO 37 
00 

3760 datname$=name$+SPACE$(8-LEN(nameS))+" -LE 
X":indname$=name$+".IND" 

3770 IF FINDS(datnameS)<>"" THEN GOTO 3850 
3780 PRINT:PRINT"Soll die Datei '"+datfile$+" 
' in '"+datname$+"' umbenannt werden? <J/N>" 
3790 match$="JN":GOSUB 240 

3800 IF antwort=2 THEN PRINT FNlocS ( 18,0 ); loe 
schS:GOTO 3700 

3810 CLOSE #1:NAME datfileS AS datnameS:NAME 
indfileS AS indnameS 

3820 file$=name$:datfile$=datname$: indfile$=i 
ndnameS 

3830 GOSUB 4140:PRINT FNlocS (15 , 0 );loesch$:GO 
TO 3190 'Datei oeffnen - Menue 
3840 ' 

3850 PRINT FNlocS(26,0);lineS 

3860 PRINT FNinfoS("Unter dem eingegebenen Na 

men existiert bereits eine Datei!") 

3870 taste$=INPUT$(1):PRINT FNlocS(26, 0 ); loes 
ch$: GOTO 3700 
3880 ' 

3890 ' ***** WECHSELN ***** 

3900 ' 

3910 PRINT FNlocS(4,51)" Wechseln " 

3920 CLOSE #l:GOSUB 3970 'Datei laden 


<92> 

<16> 

<17> 

< 22 > 

<73> 

<76> 

<48> 


<60> 


< 21 > 

<95> 

<96> 

< 8 > 

<58> 

<87> 

< 8 > 
<98> 
< 1 8 > 

<29> 
<21 > 

<91> 

<97> 

<78> 

<28> 

< 12 > 

< 5> 
<13> 

< 1 6 > 
<90> 
<83> 
<96> 
< 0 > 
<60> 

< 10 > 


< 68 > 
< 6 > 
<25> 

<31> 
<92> 
<95> 
<98> 
< 0 > 
<15> 

< 38> 
<83> 

< 7> 

<91> 

< 8 > 
<34> 

<65> 

<17> 

< 13 > 
<6 3> 

<91> 

<34> 

<16> 
<18> 
< 22 > 
<4 0> 
< 86 > 

<19> 

<60> 

<46> 

< 12 > 


3930 PRINT FNlocS(15,0);loeschS:GOTO 3190 'Me 

nue 

3940 ' 

3950 '- UP Datei laden bzw einrichten und 

oeffnen - 

3960 ' 

3970 sperre=0 

3980 PRINT FNlocS(15,0);line$ 

3990 PRINT FNlocS(16,0)"Bitte den Namen der g 
ewuenschten oder der neuen Datei eingeben. We 
nn die Bearbeitung hier" 

4000 PRINT FNlocS(18,0)"abgebrochen werden so 
11, einfach <RETURN> druecken! STRINGS(8,46 
);SPC(20)+lineS 

4010 PRINT FNlocS(18,51);con$,•:INPUT" ",fileS 
:PRINT coffS 

4020 IF file$="" THEN GOTO 5230 ELSE fileS=UP 
PERS(fileS) 'Programmende 

4030 IF RIGHTS(file$,4)-".LEX" THEN PRINT bei 
1$:GOTO 4000 

4040 IF LEN(file$)>8 THEN PRINT bell$:GOTO 40 
00 

4050 datfileS=file$+SPACE$(8-LEN(file$))+".LE 
X" : indf ile$-f.ile$ + " . IND" 

4060 IF FINDS(datfileS)<>"" THEN GOTO 4140 'D 
atei öffnen 
4070 ' 

4080 PRINT FNlocS(26,0);lineS 

4090 PRINT FNinfoS("Soll die Datei neu einger 

ichtet werden? <J/N>") 

4100 match$="JN":GOSUB 240 

4110 IF antwort=2 THEN PRINT FNlocS(26,0);loe 
schS:GOTO 4000 

4120 CREATE #1,datfileS,indfileS,2,112:CLOSE 
# 1 

4130 ' 

4140 BUFFERS 50 

4150 OPEN "K",#l,datfileS,indfileS,2 
4160 FIELD #1,15 AS w$,90 AS s$ 

4170 RETURN 
4180 ' 

4190 ' 

4200 ' ******************** 

4210 '... Diskettenmenue 
4220 ' ******************** 

4230 ' 

4240 PRINT FNlocS(2,0);SPC(15);"Laufwerk: ";1 
w$;SPC(30);"Datei: "+datfile$ 

4250 PRINT FNlocS (4,0 ) +invon$+". Di 

rectory <A><B><M> * <D>iskette <L>aufwerk <H> 

elp E<x>it <C>lear. "+invoff$ 

4260 GOSUB 4500 'Directory anzeigen 

4270 match$="ABMDLHXC":GOSUB 240 

4280 ON antwort GOTO 4330,4340,4350,4580,4650 

,4810,5230 

4290 IF sperre=0 THEN GOTO 410 ELSE GOTO 4270 
4300 ' 

43 10 ' ***** DIRECTORY A/B/M ****** 

4320 ' 

4330 lwx$="A":GOTO 4360 
4340 lwx$="B":GOTO 4360 
4350 lwx$="M" 

4360 IF lwx$=lw$ THEN PRINT bell$:GOTO 4270 ’ 
Menue 

4370 CLOSE #1:OPTION FILES lwx$ 'Laufwerk wec 
hseln 

4380 IF lwxS="M" THEN GOTO 4420 

4390 PRINT FNlocS(26,0);lineS 

4400 PRINT FNinfoS("Bitte pruefen, ob eine Di 

skette eingelegt .ist!") 

4410 taste$=INPUT$(1) 

4420 GOSUB 4SOO:GOSUB 310 'Directory anzeigen 
_ TäStfi 

4430 PRINT FNloeschS:PRINT FNlocS(26,0);lineS 
4440 PRINT FNinfoS("B ITTE.. WARTEN ! 
”) 

4450 OPTION FILES lw$:lwx$=lw$ 'Laufwerk zuru 

4460 IF sperre=0 THEN GOSUB 4140:GOTO 4240 EL 
SE GOTO 4250 'Datei oeffnen - Menue 
4470 ' 

4480 '- UP Directory anzeigen - 

4490 ' 

4500 PRINT FNloeschS 

4510 PRINT line$:PRlNT"Directory Laufwerk ";1 
wx$:PRINT lineS 

4520 IF FINDS("*.*")="" THEN PRINT"Es sind no 
ch keine Programme gespeichert!":GOTO 4540 
4530 DIR 

4540 PRINT:PRINT lineS:RETURN 
4550 ' 
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Help ":GOSUB 4830:G0 
Help ":GOSUB 4930:GO 
Help ":GOSUB 5020:GO 


4560 ' ***** DISKETTE WECHSELN ***** 

4570 ' 

4580 IF lw$="M" THEN PRINT bell$:GOTO 4270 
4590 PRINT FNlocS(4,34)" Diskette " 

4600 CLOSE #1:PRINT FNloc$(2,0)+lwtext$ 

4610 GOTO 120 'Datendiskette einlegen 
4620 1 

4630 ' ***** LAUFWERK WECHSELN ***** 

4640 ' 

4650 PRINT FNloc${4 / 0)+invon$;SPC(30);"Laufwe 
rk <A> <B> <M> * <C>lear";SPC(30)+invoff$ 

4660 PRINT FNloeschS 
4670 lw$=INPUT$(1):lw$=UPPER$(lw$) 

4680 IF lw$=lwx$ THEN PRINT bell$:GOTO 4670 
4690 IF lw$ = "C" THEN lw$=lwx$:GOTO 4250 
4700 IF lw$<>"A" AND lw$o"B" AND lw$o"M" TH 
EN GOTO 4670 

4710 lwtext$=SPACE$(15)+"Laufwerk: "+lw$+SPAC 
E$(30)+"Datei: ????????.LEX" 

4720 CLOSE #1:PRINT FNloc$(2,0)+lwtext$:lwx$= 
lw$ 

4730 IF lw$="M" THEN GOTO 150 ELSE GOTO 120 
Datendiskette einlegen 
4740 ' 

4750 ' 

4760 1 ***** HELPTEXTE ***** 

4770 ' 

4780 PRINT FNloc$(4,43)" 

TO 490. 1 Optionen-Menue 
4790 PRINT FNloc$(4,57)" 

TO 2100 'Printer-Menue 
4800 PRINT FNlocS(4,62)" 

TO 3200 'Files-Menue 

4810 PRINT FNlocS(4,56)" Help ":GOSUB 5020:GO 
TO 4250 'Disketten-Menue 
4820 ' 

4830 PRINT FNlocS(6,0);line$ 

4840 PRINT FNinfoS("* * * * *. HAUPT- UND OPT 
IONENMENUE. * * * * *"):PRINT:PRINT 
4850 PRINT"EINGABE.. : Eingabe eines Stichwor 
tes und des Erläuterungstextes. Jede Zeile mu 

ß mit <RE-. TURN> beendet werden. 

Abgeschlossen wird die Eingabe mit einem Gitt 
er(#)." 

4860 PRINT"SUCHEN... : Zeigt nach der Stichwo 
rteingabe einen Datensatz auf dem Monitor an. 

<35> 4870 PRINT"KORREKTUR : Zeigt einen Datensatz 
Zeile fuer Zeile auf dem Monitor an. Fehler k 

oennen. durch Neueingabe der Z 

eile korrigiert werden." 

<72> 4880 PRINT"LOESCHEN. : Nach Bestätigung der S 
icherheitsabfrage wird ein Datensatz gelöscht 

4890 PRINT"INDEX- : Listet das lnhaltsverz 

eichnis alphabetisch auf." 

4900 PRINT"LEXIKON.. : Zeigt alle Datensätze 
der Reihe nach auf dem Monitor an.":PRINT 
4910 GOTO 5130 ’Exit und Clear 
4920 ' 

4930 PRINT FNlocS(6,0);line$ 

4940 PRINT FNinfoS("* * * * *. PRINTER-MENUE. 

* * * * *"):PRINT:PRINT 
4950 PRINT"SUCHEN... : Druckt nach der Stichw 
orteingabe einen Datensatz aus." 

496 0 PRINT"INDEX- : Druckt, das lnhaltsverz 

eichnis alphabetisch aus." 

4970 PRINT"LEXIK0N.. : Druckt alle Datensätze 
der Reihe nach aus! Der Ausdruck kann mit <C 

AN> .. abgebrochen werden. " 

4980 PRINT"WAEHLEN.. : Zeigt einen Datensatz 
auf dem Monitor und druckt ihn auf Wunsch aus 


< 15 > 
<18> 
<34> 
<38> 

< 9> 

< 6 > 

< 5> 

< 8 > 
< 11 > 
<30> 

<60> 

< 4> 
<26> 
<37> 
<47> 

<80> 

<79> 

< 66 > 

<13> 
<16> 
<19> 
< 22 > 

< 4> 

<95> 

<77> 

<93> 

< 9> 
<27> 
<9 0> 

<45> 


<79> 


<78> 

<1 8 > 

<76> 
< 11 > 
<29> 
< 0 > 

<89> 

<69> 

< 86 > 

<25> 

<49> 


<56> 

<90> 

<90> 

<78> 

< 4> 

<93> 


<38> 
<7 4> 


4990 PRINT"ZEIGEN... : Zeigt alle Datensätze 

auf dem Monitor an und druckt einzelne auf Wu 

nsch aus!":PRINT 

5000 GOTO 5130 'Exit und Clear 

5010 ' 

5020 PRINT FNloeschS;line$ 

5030 PRINT FNinfoS("* * * * *. FILES- UND DIS 
KETTEN-MENUE. * * * * *"):PRINT:PRINT 
5040 PRINT"DATEIEN.. : Zeigt die Lexikon-Date 
ien des gewählten Laufwerks an!" 

5050 PRINT"LOESCHEN. : Nach Bestätigung der S 
icherheitsabfrage wird die aktuelle Datei gel 
oescht!" 

5060 PRINT"UMBENENNEN: Nach Eingabe des neuen 
Namens wird die aktuelle Datei umbenannt!" 
5070 PRINT"WECHSELN. : Die Datei kann gewechs 
eit oder eine neue eingerichtet werden!":PRIN 
T 


< 12 > 

<38> 

<36> 

<25> 

<95> 

<38> 

< 20 > 

<93> 
< 8 > 
< 11 > 
<14> 
< 17 > 

< 36> 
<19> 

<47> 

<65> 

< 2 > 

<56> 
<9 6> 
<40> 
<25> 
< 68 > 
<9 3> 
<96> 
< 0> 

< 3> 
<93> 
<18> 

<79> 

<77> 

<18> 

< 9> 
<77> 

< 66 > 

<19> 

< 5> 

< 8 > 
< 11 > 

< 14 > 
<42> 

< 2 0 > 
<91> 


5080 ' 

5090 PRINT"DIRECTORY : Zeigt das Directory de 
s gewählten Laufwerks an!" 

5100 PRINT"DISKETTE. : Die Diskette kann gewe 
chselt werden!" 

5110 PRINT"LAUFWERK. : Das Laufwerk kann gewe 
chselt werden!":PRINT 
5120 ' 

5130 PRINT"EXIT. : Die Datei wird geschlo 

ssen, das Programm kehrt zu Basic zurueck." 
5140 PRINT"CLEAR.... : Das Programm kehrt in 
das vorhergehende Menue zurueck." 

5150 GOSUB 310:PRINT FNloeschS:RETURN 'Taste 
5160 ' 

5170 ' 

5180 ' ***** ENDE. ***** 

5190 ' 

5200 PRINT beiIS:PRINT FNlocS(26,0);line$ 

5210 PRINT FNinfoS("F EHLER !. Das Progra 
nun wird beendet!") 

5220 FOR X=1 TO 2000:NEXT 
5230 CLOSE #1:PRINT FNlocS(26,0);line$ 

5240 PRINT FNinfoS("Die Datei wurde geschloss 
en!") 

5250 FOR x=l TO 2000:NEXT 
5260 IF kor$="ein" THEN LPRINT koroffS 
5270 IF mic$ = "ein" THEN LPRINT m.icoffS 
5280 LPRINT esc$+"P" 'Pica-Schrift 
5290 BUFFERS 0:PRINT cls$;con$:END 
5300 ' 

5310 ' 

5320 1 ***** FEHLERMELDUNGEN ***** 

5330 ' 

5340 PRINT FNlocS(26,0);line$ 

5350 PRINT FNinfoS("Es wurden noch keine Date 
nsätze eingegeben!") 

5360 taste$=INPUT$(1) 

5370 PRINT FNloeschS:RETURN 
5380 ' 

5390 PRINT FNlocS(26,0);line$ 

5400 PRINT FNinfoS("Keinen Datensatz zu diese 
m Stichwort gefunden!") 

5410 taste$=INPUT$(l) 

5420 PRINT FNlocS(26,0);loesch$:RETURN 
5430 ' 

5440 
5450 
5460 
5470 
5480 


***** INITIALISIERUNG ***** 
- Bildschirmcodes - 


< 31 > 

<87> 

< 0 > 

< 16 > 
<77> 
< 22 > 

<37> 

<95> 

<58> 

<25> 

<55> 

< 3> 
<87> 

< 8 > 
<47> 

<59> 

< 5> 
<54> 

< 24> 
<38> 

< 2 > 
<79> 
<94> 

< 5 3> 
< 61 > 

< 12 > 


5490 esc$=CHR$(27):cls$=escS+"E"+esc$+"H":loe 
sch$=esc$+"J" 

5500 con$=esc$+"e":coff$=esc$+"f":cup$-esc$+" 
A" 

5510 invonS=esc$+"p":invoff$=esc$+"q" 

5520 bellS=CHRS(7):line$=STRING$(90,154):crlf 
$=CHR$(13)+CHRS(10) 

5530 DEF FNlocS(x,y)=esc$+"Y"+CHR$(32+x)+CHR$ 
(32+y) 

5540 DEF FNloesch$=esc$+"Y"+CHR$(32+6)+CHR $(3 
2 + 0 )+loesch$ 

5550 DEF FNinfoS(textS)=STRING$((80-LEN(text$ 
))/2,32)+invon$+"... "+text$+"... "+invoff$+s 
TRING$((80-LEN(text$))/2,32)+crlf$+line$ 

5560 lw$="A" : lwx$=lw$ :nor$ = "ein" :kor$="aus" :m 
ic$="aus" 

5570 lwtext$-SPACES(15)+"Laufwerk: "+lw$+SPAC 
ES(30)+"Datei: ????????.LEX" 

5580 index=0:suchen=0:lexikon=0:sperre=0 
5590 ' 

5600 1 -Druckercodes- 

5610 ' 

5620 elite$=esc$+"M":dop$=CHR$(14):strich$=ST 
RINGS(90,45) 

5630 koron$=esc$+"m"+"1":koroff$=esc$+"m"+"0" 
5640 micon$=esc$+"S"+CHR$(0)+esc$+"SI"+CHRS(1 
5)+esc$+"3"+CHR$(20) 

5650 micoff$=esc$+"T"+esc$+"DC2"+CHR$(18)+esc 
$+"2"+elite$ ; 

5660 druck=0:worte=0:ausdruck=0 
5670 LPRINT elite$ 

5680 ’ 

5690 '-Titel- 

5700 ' 

5710 PRINT cls$;coff$ 

T 7 line$ INT line$:PRlNT:PRIN ^ line$:PRINT:PRIN 

5730 PRINT FNlocS(2,0)+lwtext$ 

5/40 PRINT FNlocS(4,o)+invon$+"... ***** 
********** W*' L E X I K O N . B A S.. * 
5750 RETURN ° rLS 
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Bounce 


100 Level Spielvergnügen 

BOUNCE!! Ist es nicht das, was Sie schon immer für Ihren PCW gesucht 
haben? Ein Spiel, das Sie nicht mehr losläßt, sobald Sie es einmal begonnen 
haben? Nun, vor Ihnen liegt es. BOUNCE erfordert logische Vorgehenswei¬ 
se, stellt Anforderungen an Ihre Geschicklichkeit und verlangt zudem starke 
Nerven. Das Programm zeichnet sich durch Pulldown-Menüs, akustische 
und grafische Effekte aus, aber sehen Sie selbst und lassen Sie sich über¬ 
raschen: 


Auf einem acht x acht grossen Feld be¬ 
finden sich Spielsteine, deren Position 
einer bestimmten Gesetzmässigkeit un¬ 
terliegen. Diese sind von einem vorge¬ 
gebenen Startstein beginnend durch 
Springen auf einen anderen Stein zu 
vernichten. Dabei gibt es acht verschie¬ 
dene Sprungmöglichkeiten: Mit den 
vier Cursor-Tasten alleine können ein¬ 
fache Sprünge, in Verbindung mit der 
SHIFT-Taste jedoch Doppelsprüngc in 
horizontaler und vertikaler Richtung 
ausgeführt werden. Der jeweils verlas¬ 
sene Stein wird vernichtet. Ihre Aufga¬ 
be ist es, in hundert Sekunden das ge¬ 
samte Spielfeld abzuräumen. Das Limit 
wird im Info-Fenster und als schrump¬ 
fender Balken links neben dem Spiel¬ 
feld angezeigt. Sollte das Limit bis auf 
dreißig Sekunden ablaufen, so fängt die 
gesamte Bildschirmdarstellung an zu 
wackeln. Verstreicht das Limit oder ha¬ 
ben Sie sich versprungen, so ist das 
Spiel verloren. 

Die auf Diskette vorhandenen Level 
werden nach einem Zufallssystem aus¬ 
gesucht, jedoch so, daß sich die Level 
erst dann wiederholen, wenn alle vor¬ 
handenen gespielt worden sind. In die¬ 
sem Fall jedoch werden diese in ande¬ 
rer Form als zuvor dargestellt (andere 
Startposition (2), spiegelverkehrt (2), 
gedreht (4)). Die Zahlen in Klammern 
geben die Anzahl der Möglichkeiten 
an. Insgesamt kann also jeder Level in 
2x2x4=16 Variationen auftreten. 

Während des Spiels wandeln sich gele¬ 
gentlich normale Spielsteine in die 
Buchstaben b,o.u,n,c,e um, die für zehn 
Sekunden stehen bleiben. Gelingt es Ih¬ 
nen, in dieser Zeit den aufgetauchten 
Buchstaben zu vernichten, so gibt es 
Extrapunkte, andernfalls wandelt sich 
der Buchstabe wieder in einen norma¬ 
len Spielstein um. 

Sollten Sie einmal alle sechs verschie¬ 
denen Buchstaben vernichtet haben, so 
daß das Wort “bounce“ komplett ist. so 


gibt es nochmals Extrapunkte. Die An¬ 
zahl der durch Sie vernichteten Buch¬ 
staben wird im Infofenster angezeigt. 
Mit STOP können Sie während des 
Spiels eine Pause einlegen. Dabei wird 
das Spielfeld gelöscht, die Pause ange¬ 
zeigt und das Spiellimit angehalten. Be¬ 
reits erschienene, nicht vernichtete 
Buchstaben gehen verloren. Wollen Sic 
das Spiel fortsetzen, so drücken Sie 
eine beliebige Taste. Das Drücken der 
PTR-Taste während des Spiels hat 
keinen Einfluss auf das Limit! 

Sollten Sie bis spät in die Nacht spielen 
und möchten dabei niemand stören, so 
können Sie mit AUSBL alle akusti¬ 
schen Signale aus- und auch wieder 
einschalten. 

Wenn Ihnen während des Spiels ein Le¬ 
vel auffallen sollte, den Sie vielleicht 
anschließend bearbeiten möchten, so 
drücken Sie COPY, damit sich BOUN¬ 
CE diesen Level merkt. Wie unten be¬ 
schrieben. können Sie diesen dann im 


Editor durch erneutes Drücken von 
COPY aufrufen. 

Die Highscore-Liste 

BOUNCE verfügt über eine Highsco- 
rc-Liste, in die Sie BOUNCE automa¬ 
tisch eintragen läßt, wenn Sie mit Ihren 
erspielten Punkten einen der ersten 
zehn Plätze belegen. Diese Highscore- 
Liste wird auf Diskette abgespeichert. 
Existiert diese bei Programmstart nicht 
auf Diskette, so wird eine Liste erstellt, 
in der alle zehn Plätze mit zu überbie¬ 
tenden Punkten belegt sind. Die aktuel¬ 
le Highscore-Liste können Sie sich je¬ 
derzeit im Hauptmenü zeigen lassen. 
Abgespeichert werden dabei Ihr Name, 
Ihre erzielten Punkte, der erreichte Le¬ 
vel. die Anzahl der durch Sie vernichte¬ 
ten Buchstaben und die gesamte Spiel¬ 
dauer in Sekunden. Bei Punktgleichheit 
entscheidet die Anzahl gespielter Le¬ 
vel. dann die Anzahl vernichteter Buch¬ 
staben, dann die kürzere Spieldauer 
und letztendlich das neuere Ergebnis 
über die bessere Platzierung. 

Der Editor 

BOUNCE enthält einen Editor, mit 
dem Sie eigene Level erstellen und auf 
Diskette abspeichern können. Wenn Sie 
ihn im Hauptmenü aufrufen, so wird 
Ihnen im Info-Fenster in Klammern an¬ 
gezeigt, wieviele Level bereits existie¬ 
ren. Sie werden nun gefragt, ob Sie ei¬ 
nen Level aufrufen oder erstellen wol¬ 
len. Im ersten Fall springt der Cursor 
ins Infofenster und erwartet die Eingabe 
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des gewünschten Levels. Drücken Sie 
ENTER, ohne eine Eingabe gemacht 
zu haben, so ruft BOUNCE den zuletzt 
aufgerufenen beziehungsweise, bear¬ 
beiteten auf. Wenn Sic COPY drücken, 
ruft BOUNCE automatisch den durch 
Sie während des Spiels markierten Le¬ 
vel auf. Haben Sie jedoch zuvor keinen 
Level aufgerufen oder markiert oder 
haben Sie einen Level gelöscht, so wird 
der erste Level aufgerufen. 

Durch Drücken der Taste zwischen den 
Cursor-Tasten setzen Sie einen Stein 
oder löschen einen bereits gesetzten. 
Mit FORM bestimmen Sie eine Start¬ 
position oder löschen eine bereits be¬ 
stimmte. Pro Level müssen zwei Start¬ 
positionen angegeben werden. 

Wenn Sie einen Level ordnungsgemäß 
mit zwei Startpositionen erstellt haben, 
so drücken Sie ENTER, damit BOUN¬ 
CE Sie fragen kann, ob der Level in die¬ 
ser Form abgespeichert werden kann. 
Das Programm schließt nach einem 
Schreibzugriff die betroffene Datei und 
öffnet sie wieder, damit zu jeder Zeit 
die Daten gesichert sind. Mit CAN bre¬ 
chen Sie fast jede gewählte Operation ab. 
Zum Listing BOUNCE.BAS: Um das 
Programm BOUNCE läufßihig zu ma¬ 


chen. ist die Tastaturbelegung geringfü¬ 
gig zu ändern: Hierfür erstellen Sie mit 
dem Programm RPED.BAS die Datei 
BOUNCE.WP 

07 N ‘T25I’“ < RETURN > 

14 S “T’252’“ < RETURN > 

79 S “T’253’“ < RETURN > 

15 S ‘T254’“ < RETURN > 

06 S “T’255’“ < RETURN > 

Diese Änderung ist notwendig, um 
SHIFT-Cursor - Kombinationen und 
die Benutzung der Taste zwischen den 
Cursor-Tasten zu ermöglichen. Vor 
dem Programmstart müssen Sie dann 
unter CP/M mit dem Programm SET- 
KEYS.COM (Seite zwei der Systemdis¬ 
ketten) die lastatur mit der Eineabe 
“SETKEYS BOUNCE.WP“ umdefi¬ 
nieren und das Spiel mit “BASIC 
BOUNCE“ starten. 

Zum Listing LEVEL.BAS: Dieses Li¬ 
sting enthält hundert ausgeklügelte und 
getestete Level für BOUNCE, das nach 
dem Programmstart die Datei BOUN¬ 
CE. LEV eröffnet und alle Level spiel- 
fertig einrichtet. Jeweils fünf DATA- 
Werlc ergeben einen Level. 

Hannes Geyer/rs 


In letzter Minute konnte noch ein 
Fehler im Programm ausfindig ge¬ 
macht werden, der sieh auf die Be¬ 
rechnung der Extrabounspunkte aus¬ 
wirkt. Um diesen Fehler zu korrigie¬ 
ren, ändern Sic einfach die folgen¬ 
den drei Zeilen wie angegeben ab: 

1130 ge = i:bw=INT(6*RND): 
s=8*xw-4:FOR z=4*yw-4 
TO 4*yw-2:GOSUB 90:PRINT 
SPC(6):NEXT z:z=4*yw-l :FOR 
i = I TO 3:z=z-l:GOSUB 90; 

RINT inv$;MID$(bou$,8*bw + I + 
(z-4*yw-f 4)*48,6 );nrm$:NEXT i: 
zv = se 

1370 ge=0:bon=bon+ LGOSUB 
2670.GOSUB 2960:pun = pun + 

(2*1 im MOD 10):ep 1 = INT(2*lim/ 
10):ep2 = lO.gosub 2870:IF 
(gbs AND 2Tbw)=0 THEN gbs = 
gbs+2Tbw 
1385 GOSUB 3020 

Auf der DATABOX steht selbstver¬ 
ständlich die korrigierte Fassung 
von BOUNCE zur Verfügung. 


LISTING >BOUNCE <, REMARK = >'<. 

<67> 10 ' ***************************************** 
***** 

<22> 20 '*. BOUNCE.. V 1.4. 


<36> len '* (C> 12 * 05 - 1991 b Y Hannes Geyer, 4300 Es 
<44> 40 '*-& cpc International. 


<97> 50 '*... für PCW 8256/8512 - Schneider JOYCE. 

<64> 60 '*.. Mallard BASIC. 18 Total lk Block 

<73> 70 '***************************************** 
***** 

<27> 

<51> 

< 72 > 


< 2 > 


<48> 

<25> 

<43> 

<97> 

<84> 

<98> 

<60> 

<90> 


<70> 

< 4> 

<67> 

<89> 

< 12 > 


tw 


80 OPTION RUN:CLEAR ,,,2,35 
90 OEFrNT a-o,q-z:WIDTH 255:GOTO 110 
100 PRINT escS;"Y";CHR$(z+32);CHR$(s+32);:RET 

1 1 0 DIM men$(6,4),ste${3),in(25),mo(6),fe(8 8 
),V(6),bl(15),b2(15),zm(16),mt(l6),bex(2), bey 

120 esc$=CHR$(27t:clr$=esc$+"E"+esc$+"H" 

130 mv$=esc$ + "p":nrm$=esc$+"q" 

140 uns$=esc$+"f":sic$=esc$+"e" 

150 und$=esc$+"r":nun$=esc$+"u" 

5^: esc § + " b " +CHR S ( 63) +es C $ + " C "+CHR$ (0) 

170 du$-esc$+"b"+CHR$(o)+esc$+"c"+CHRS f 63( 

180 so$=' 1 ON": solS="OFF": lern=l: lds=l:tw=ll: 
Jzi 2:wl * 255:w2=0:ul=255: u 2 =o 
^ 9 ®(1U)f" BOUNCE starten.. ":men$(1,2)= 

" :men S(l,3) = " Editor aufru 

fen. :men$(1,4) = " BOUNCE Ende. « 

200 men$(2,l)=" Level erstellen. ":men$(2,2)= 
d^Levei aufrufen.. " :raen$(2,3) = " Editieren En 

210 men$(3,1)=" Level speichern. ":men$(3,2)= 
Level unkorrekt. ":men$(3,3)=" Abbrechen... 

bearbeiten ":men$(4, 2 )= 
b( ". : .?®nS(4,3)=men${3,3 

rniS$?3?3$ ' = 0estatl 9 en . " :raen$ (5,2) = 

240 men$(6,l)=» -> Mallard BASIC ":men$(6,2)= 

x 80 :men$(6,4)=" -> Syste^start.. " 


<15> 

<56> 
<41 > 

<24> 


< 11 > 

<47> 

<25> 

<55> 

<75> 

<42> 

<85> 

<44> 

< 10 > 

<92> 

< 38> 

< 6 > 

<2 3> 
<43> 

<78> 

<54> 


> f 5 ) +CHR$ (152 ) + 11 . » 
(l)=i:NEXT i 

" )SpI|7a!f£5 $ : pa S;g! 


20 0 1°$=CHR$(134):ro$=CHR$(140):lu$=CHRSM 311 
^ru$=CHR$(137):ve$=CHR$(133):ho$=STRING$[18,1 

ste §Ü2?M + f??P?$i 4 D3 8 ) + ro$:steS(2) = 

"+CHRs7?!fl?in 48 i +SRAC ? S <Z) +c $ + CHR$(148)+".. 
RIGHTS (d$ 7 ) idSldsÜ Sl (145) l ' ! ^RS I 

Si + ri« - S(1 

300 pa$=inv$+". "+nrm 
(2)=pa$+". "+pa$:pa$( 

RS“ 149H»" tCHR$ (149 > ;CK5 (1«i JcÄRS (152)+?H 

Ilci52>4:^ “NEi? 1 ! 5 '® 115 *"-- " +CIiR S(146)+CH 
330 nor$=esc$ + "x. ?y" :lf l$=esc$+"x «> "+ri t -C 4 . 

•lf2$=esc$ + "x-f13"+clr$+nor$:lf3$=esc$ + "X 
&n$*"+clr$+nor$:lf 4 $=esc$ + "x. > "+clr$+nSr$ 

340 ba=16:FOR x=l TO 15:READ bl(i),b2(i):NEXT 

350 FOR i=l TO 25:READ jn(i):NEXT i 

?33 ??w7 2 ?d 4 ?, , 2 45 i 148,146 ' 152 ' 139 ' 1 42,149, 

133,211,47,135,141,150,153,60,62,138,154 138 
32 ' 149 ' 32 D3 1 , 140 , 22 °,221,240;244;i,i;i;3;3?i 

370 RÄNDOMIZE (PEEK(&HFBF7 \ +1)*(PEEK{&HFBF8)+ 

380 PRINT du$;uns$;nrm$;nor$;clr$; 

400 '***** Bildschirmaufbau ***************** 
***** 

410 ' 

420 OUT 248,8:OUT 245,91:OUT 246,115:G0SUB 29 

Säg» 

: ?Hl N 2 äix£ 2 ! F iLribS 30:NEXT j:rF INKCTS “' ,i! 

440 OUT 246,0:rl=SGN(0.5-INT(2*RND)):r2=SGNt 0 
.5-INT(2*RND)):FOR i=0 TO 3olz=rl* i-lSj+Isls 
-l:GOSUB 100:PRINT inv$;CHR$(149):z=r2*(i- 15 ) 

+ 15 : s=68 :GOSUB 100:PRINT CHR$(“- i: ^ 


[149j;nrm$:NEXT' 
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<42> 450 z=0:s=70:GOSUB 100:PRINT lo$;ho$;ro$ 

<14> 460 FOR Z=1 TO 3:GOSUB 100:PRINT ve$;SPC(18); 
ve$:NEXT z 

<17> 470 z=4:GOSUB 100:PRINT lu$;ho$;ru$:Z=5:GOSUB 
100:PRINT lo$;ho$;ro$ 

<90> 480 FOR z=6 TO ll:GOSUB 100:PRINT ve$;SPC(18) 
;ve$:NEXT z 

<69> 490 z=12:GOSUB 100:PRINT lu$;ho$;ru$ 

<22> 500 z=2:s=73:GOSUB 100:PRINT "BOUNCE.. V 1.4" 
:z=6:s=72:GOSUB 100:PRINT "Score:":z=7:GOSUB 
100:PRINT "Level:":z=8:GOSUB 100:PRINT "Bonus 
:":z=9:GOSUB 100:PRINT "Limit:":z=10:GOSUB 10 
0:PRINT "Dauer:":z=ll:GOSUB 100:PRINT "Sound: 
. ON" 

<80> 510 IF Ub=l THEN 600 

<76> 520 FOR u=l TO 4:FOR i=6 TO 1 STEP -1:SWAP mo 
(INT(i* RND) +1),mo(i):f=mo(i) 

<76> 530 s=8*f+4:FOR z=14 TO 16:GOSUB 100:PRINT SP 
C(6):NEXT z:FOR z=16 TO 14 STEP -l:GOSUB 100 
<41> 540 IF u=l OR U=3 THEN PRINT inv$;ste$(z-13); 
nrm$ .-GOTO 570 

<28> 550 IF U=2 THEN PRINT inv$; 

<50> 560 PRINT MID$(bou$,8*f-7+(z-14)*48,6);nrm$ 
<79> 570 IF INKEY$>"" THEN GOSUB 2960:GOTO 600 
<26> 580 NEXT z:FOR j=l TO 80:NEXT j,i:FOR j=l TO 
1000:NEXT j,u:GOTO 520 
<40> 590 ' 

< 2> 600 IF FIND${"BOUNCE.SCO")="" THEN ng=l 
<76> 610 GOSUB 2600:GOSUB 2630:SW=1024:swl=sw 
<82> 620 IF SW<1 THEN 670 

<62> 630 swl=swl/2:GET 1,sw:al=VAL(MID$(stu$,17,2) 
):de=EOF(l):IF sw>999 AND al>0 THEN GOSUB 302 
0:GOTO 3050 

<69> 640 GET 1,sw+1:a2=VAL(MID$(stu$,17,2)) 

<58> 650 IF de<0 OR al=0 THEN sw=sw-swl:GOTO 620 
<20> 660 IF de=0 AND a2>0 THEN sw=sw+swl:GOTO 620 
<68> 670 IF nq=l THEN FOR i=l TO 10:na$(i)="BOUNCE 
"+SPACES(10):pu(i)=100*(ll-i):le(i)=INT((10-i 
)/3)+1:bo(i)=le(i)-l:pt(i)=20*le(i):NEXT i:GO 
SUB 2620:GOTO 720 

<98> 680 FOR i=l TO 10:GET 2,i:na$(i)=name$:pu(i)= 
VAL(punkte$):le(i)=VAL(level$):bo(i)=VAL(bonu 
s$):pt(i)=VAL(dauer$):NEXT i 
<41> 690 ' 

<16> 700 '***** Hauptprogramm ******************** 
***** 

<26> 710 ' 

<10> 720 DIM zuf(sw),moe(sw,2):FOR i=l TO sw:zuf(i 
)=i:NEXT i 

<43> 730 k=l: kl = 4:GOSUB 2720:PRINT lfl$:IF v(l)<>2 
THEN PRINT If4$;lf3$ 

<87> 740 IF v(l)=l THEN GOSUB 3000:st=0:ge=0:pun=0 
:lev=0:bon=0:pti=0:gbs=0:GOTO 780 
<41> 750 IF v( 1)=2 THEN GOSUB 2510:GOTO 730 
<49> 760 IF v(1)=3 THEN swa=sw:GOSUB 2660:GOSUB 30 
00:GOTO 1750 ELSE 3050 
<38> 770 ' 

<45> 780 FOR ZU=SW TO 1 STEP -1 

<28> 790 PRINT lf4$;inv$;und$;:s=0:FOR z=30 TO 0 S 
TEP -1:GOSUB 100:PRINT " ":NEXT z:PRINT nun$; 
nrm$ 

<42> 800 u=0:r=0:gc=FRE(""):lev=lev+l:lim=100:GOSU 
B 2650:GOSUB 2670:GOSUB 2680:GOSUB 2690:GOSUB 
2700 

<60> 810 SWAP zuf(INT(zu*RND)+l),ZUf(ZU) 

<97> 820 n=ZUf(zu):GET l,n:GOSUB 2860 
<43> 830 FOR q=l TO 2:FOR a=0 TO 7:r=r+l 
<98> 840 IF (moe(n,q) AND 2 A a)=0 THEN zm(r)=0:u=u+ 
l:mt(u)=r ELSE zm(r)=l 

< 1> 850 NEXT a,q:m=mt(INT(u*RND)+l):zm(m)=l 
<31> 860 IF m>8 THEN m=m-8:d=2 ELSE d=l 

<42> 870 moe(n,d)=0:FOR a=0 TO 7 

<36> 880 IF zm(a+d*8-7) = 1 THEN moe(n,d)=moe(n,d) + 2 
A a 

<30> 890 NEXT a 

<66> 900 IF moe(n,1)+moe(n,2)=510 THEN moe(n,l)=0: 

moe(n,2)=0 
<28> 910 ' 

<85> 920 FOR y=l TO 8:by=VAL("&H"+MID$(stu$,2*y-l, 
2)) 

<44> 930 FOR a=0 TO 7:IF (by AND 2 A a)=0 THEN 1050 
<43> 940 x=a+l:ON m GOTO 950,960,970,980,990,1000, 
1010,1020 

<87> 950 xl=x:yl=y:GOTO 1030 
<22> 960 xl=y:yl=9-x:GOTO 1030 
<87> 970 xl=9-x:yl=9-y:GOTO 1030 
<39> 980 xl=9-y:yl=x:GOTO 1030 
<35> 990 xl=x :y 1 = 9-y‘.GOTO 1030 
<63> 1000 xl=y;yl=x:GOTO 1030 
<25> 1010 xl=9-x:yl=y:GOTO 1030 


<69> 

<38> 

<75> 


< 21 > 

<82> 

<69> 

< 8 > 
<87> 
<35> 

<98> 


<49> 
<7 4> 

<37> 


<77 > 
<64> 


<43> 

<52> 

<89> 

<63> 

< 7> 
<9 3> 
<96> 
<38> 
<53> 
< 70 > 
<37> 
<9 3> 
<58> 
<52> 
<17> 

< 16 > 
< 21 > 
<85> 
<31> 
<82> 


<47> 

<84> 


< 70 > 


< 88 > 

< 66 > 


< 9> 


<60> 

<55> 

<54> 

<93> 

<67> 

<56> 


<19> 

<81> 

<96> 
<58> 
<7 3> 
<41 > 
<91> 
<59> 


1020 xl=9-y:y1=9-x:GOTO 1030 

1030 fe(xl,yl)=l:st=st+l:IF a=bex(d)-l AND y= 
bey(d) THEN ax=xl:ay=yl 

1040 z=4*yl-4:s=8*Xl-4:GOSUB 100:PRINT inv$;s 
te$(1):z=z+l:GOSUB 100:PRINT ste$(2):z=z+l:GO 
SUB 100:PRINT ste$(3);nrm$ 

1050 NEXT a,y 

1060 GOSUB 3030:ptio=pti:ba=ba-l:IF ba<l THEN 
ba=15 

1070 f=INT(ba*RND)+l:SWAP bl(f),bl(ba):SWAP b 
2(f),b2(ba):POKE &HFBF7,0:POKE &HFBF8,0 
1080 ' 

1090 ta$=INKEY$:IF ta$>"" THEN 1230 

1100 SWAP bl(ba).b2(ba):z=4*ay-3:s=8*ax-2:GOS 

UB 100:PRINT CHR$(bl(ba));CHRS(b2(ba)) 

1110 IF lim<30 THEN OUT 246,ul:SWAP Ul,u2:hr= 
253+INT(lim/10):IF Ul<u2 THEN U2=hr ELSE ul=h 
r 

1120 IF RND>0.01 OR ge=l THEN 1150 
1130 XW=INT(8*RND)+l:yw=INT(8*RND)+l:IF fe(xw 
,yw)=0 OR (xw-ax) A 2+(yw-ay) A 2<2 THEN 1170 
1140 ge=l:bw=INT(6*RND):s=8*xw-4:FOR z=4*yw-4 
TO 4*yw-2:GOSUB 100:PRINT SPC(6):NEXT z:z=4* 
yw-1:FOR 1=1 TO 3:z=z-l:GOSUB 100:PRINT inv$; 
MID$(bou$,8*bw+l+(z-4*yw+4)*48,6);nrm$:NEXT i 
:zv=se:IF (gbs AND 2 A bw)=0 THEN gbs=gbs+2 A bw 
1150 ta$ = INKEY$: IF ta$> r,M THEN 1230 
1160 IF ge=l THEN IF se>zv+10 THEN ge=0:s=8*x 
w-4:FOR z=4*yw-4 TO 4*yw-2:GOSUB 100:PRINT SP 
C(6):NEXT Z:FOR z=4*yw-2 TO 4*yw-4 STEP -l:GO 
SUB 100:PRINT inv$;ste$(z-4*yw+5);nrm$:NEXT z 
1170 se=VAL(HEX$(PEEK(&HFBF7)))*60+VAL(HEX$(P 
EEK(&HFBF8))):IF se>100 THEN se=100 
1180 lim=100-se:pti=ptio+se:GOSUB 2690:GOSUB 
2700 

1190 ta$=INKEY$:IF ta$>"" THEN 123Ö 

1200 PRINT esc$;"X. ";CHR$(31+se/3.27);" ";cl 

r$;nor$ 

1210 IF lim>0 THEN 1090 ELSE 1460 
1220 ' 

1230 ta=ASC(ta$):axl=ax:ayl=ay 
1240 IF ta=l THEN ax=ax-l:GOTO 1360 
1250 IF ta=6 THEN ax=ax+l:GOTO 1360 
1260 IF ta=30 THEN ay=ay+l:GOTO 1360 
1270 IF ta=31 THEN ay=ay-l:GOTO 1360 
1280 IF ta=252 THEN ay=ay-2:GOTO 1360 
1290 IF ta=253 THEN ay=ay+2:GOTO 1360 
1300 IF ta=254 THEN ax=ax-2:GOTO 1360 
1310 IF ta=255 THEN ax=ax+2:GOTO 1360 
1320 IF ta=3 THEN ge=0:GOSUB 2900 
1330 IF ta=21 THEN GOSUB 2980 
1340 IF ta=23 THEN lem=n 
1350 GOTO 1090 

1360 OUT 248,tw:st=st-l:fe(axl,ayl)=0:OUT 248 
,12:PRINT esc$;"X";CHR$(4*ayl+28);CHR$(8*axl+ 
28);CHR$(34);CHR$(37);clr$;nor$ 

1370 IF ge=0 OR axloxw OR ayloyw THEN 1400 
1380 ge=0:bon=bon+l:GOSUB 2680:GOSUB 2970:pun 
=pun+(2*lim MOD 10):epl=INT(2*lim/10):ep2=10: 
GOSUB 2880:GOSUB 3030 

1390 IF gbs>62 THEN gbs=0:FOR i=l TO 3:PRINT 
lf2$;he$:FOR j=l TO 200:NEXT i:PRINT du$:FOR 
bw=0 TO 5:GOSUB 2970:NEXT bw,l:epl=25-INT(0.2 
5*pti/lev):ep2=100:GOSUB 28Q0:PRINT lf2$ 

1400 pun=pun+10:GOSUB 2650:IF st>0 THEN 1440 
1410 FOR 1=1 TO 3:FOR j=l TO 200:NEXT j :OUT 2 
48,tw:GOSUB 100:OUT 248,12:NEXT i:FOR 1=1 TO 
200:NEXT j:pun=pun+(lim MOD 5):epl=INT(lim/5) 
:ep2=5:GOSUB 2880 

1420 SWAP wl,w2:FOR i=wl TO w2 STEP SGN(l-wl) 
:OUT 246,i:FOR j=l TO 1:NEXT j,i:OUT 246,0 
1430 NEXT zu:GOTO 780 

1440 IF ax<l OR ax>8 OR ay<l OR ay>8 THEN 146 
0 

1450 IF fe(ax,ay)>0 THEN 1090 

1460 OUT 246,0:pti=ptio+se:GOSUB 2700 

1470 FOR i=l TO 10:FOR j=200 TO 220:OUT 248,t 

w:OUT 248,12:OUT 245,j:NEXT j,i:OUT 245,91 

1480 s=70:FOR z=26 TO 30:GOSUB 100:PRINT inv$ 

;SPC(20):NEXT z:Z=28:s=76:GOSUB 100:PRINT "GA 

ME OVER' 1 ;nrm$ 

1490 ' 

1500 ****** Highscore *********************** 
***** 

1510 ' 

1520 FOR h=10 TO 1 STEP -1 
1530 IF pun>pu(h) THEN 1590 
1540 IF pun<pu(h) THEN 1600 
1550 IF lev>le(h THEN 1590 
1560 IF lev<le(h) THEN 1600 
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<29> 

<82> 

<98> 

<82> 

<31> 


1570 IF bon>bo(h 
1580 IF bon<bo(h 
1590 NEXT h 
1600 IF h=10 THEN 730 


THEN 1590 

OR pti>pt(h) THEN 1600 


< 7> 
<45> 
<43> 

< 3> 
<62> 

< 1 > 


<42> 
<56> 
< 5> 


<34> 

< 4> 
<13> 

< 10 > 

< 86 > 

<42> 

<61> 

<91> 
< 12 > 

< 6 > 

<59> 

< 12 > 


<31> 

<84> 

<79> 


<29> 

<41> 


<27> 


<55> 

<65> 


<18> 


<37> 


< 11 > 

<31> 

<17> 

< 10 > 

<80> 

<53> 


<14> 

<38> 

<42> 

<90> 

<48> 

<96> 

<36> 

<77> 

<89> 


<65> 
<81> 
< 7> 


1610 FOR i=10 TO h+2 STEP -1:na$(j)=na$(j-1) : 

?y=P^(j-l|^NEXT e p )=le ^” 1) :b ° ( j )=b ° (:- l :pt ( 

1620 na$(h+l)=SPACE$(16):pu(h+1)=pun:le (h+1 )= 
1ev:bo(h+ 1 )=bon:pt(h+ 1 )=pti 

1630 PRINT lf1$:GOSUB 2510:na$(h+1)="":GOSUB 
3030:z=2*h+8:s=15:GOSUB 100:PRINT sic$; 

1640 ta$=INPUT$(1):ta=ASC(ta$):IF ta>32 AND t 
a<127 THEN 1700 

1650 IF ta=32 THEN IF s=15 THEN 1640 ELSE 170 
0 

1660 IF ta=127 THEN IF s>15 THEN na$(h+l)=LEF 
T$(na$ (h+1) ,LEN(na$(h+l) )-i):s=s-l :GOSUB 100: 
PRINT '* 11 ; :GOSUB 100 ELSE GOSUB 3020 
1670 IF ta=13 THEN IF na$(h+l)="" THEN GOSUB 
3020:GOTO 1640 ELSE na$(h+1)=na$(h+1)+SPACES( 
31-s):PRINT uns$:GOSUB 2620:GOTO 730 
1680 IF ta=21 THEN GOSUB 2980 
1690 GOTO 1640 
1 T 00 J F , s<31 THEN GOSUB 100:PRINT ta$;:na$(h+ 
l)=na$(h+l)+ta$:s=s+l:GOSUB 100 ELSE GOSUB 30 

1710 GOTO 1640 
1720 ' 

1730 '***** Editor ************************** 
***** 

1740 ' 

1750 k=2:kl=3:GOSUB 2720 
1760 IF v(2)=3 OR ta=8 THEN PRINT lf3$:IF sw< 
>swa THEN ERASE zuf,moe:GOTO 720 ELSE 730 
1770 IF v(2)=1 THEN d=0:lev=sw+l:GOSUB 2670:G 
OSUB 3010:GOTO 2050 

1780 num$ = "":z=7:s=85 .-GOSUB 100:PRINT sic$; 
1790 ta=ASC(INPUT$(1)) 

1750 IF ta=8 THEN PRINT uns$:GOSUB 2660:GOTO 

1810 IF ta=13 THEN 1870 
102° 1F . ta=12 Z THEN IF s=85 ™EN GOSUB 3020 E 
LSE num$=LEFT$(num$,LEN(num$)-i):s=s-i:GOSUB 
100:PRINT " ";:GOSUB 100 
1830 IF ta = 21 THEN GOSUB 2980 
1840 IF ta=23 THEN num$=STR$(lern):GOTO 1870 
1850 IF ta>47 AND ta<58 THEN IF S=88 THEN GOS 
UB 3020 ELSE num$=num$+CHR$(ta):GOSUB 100:PRI 
NT CHRS(ta);:s=s+l:GOSUB 100 
1860 GOTO 1790 
1870 PRINT uns$;:lev=VAL(num$):IF levcl OR le 
v>sw THEN lev=lds 

1880 GOSUB 2670:GET 1,lev:lds=lev:FOR v=l TO 
8:by=VAL("&H"+MID$(stu$,2*y-l,2)):FOR a=0 TO 
7:b=2 A a 

1890 IF (by AND b)<>0 THEN fe(a+l,y)=l 
1900 NEXT a,y:GOSUB 2860:GOSUB 3010:FOR b=l T 
O 8:FOR a=l TO 8 

1910 IF fe(a,b)>0 THEN z=4*b-4:s=8*a-4:GOSUB 
100:PRINT inv$;ste$(1):z=z+l:GOSUB 100:PRINT 
ste$(2):z=z+l:GOSUB 100:PRINT ste$(3);nrm$ 

1920 NEXT a,b:d=2:FOR i=l TO 2:fe(bex(i),bey( 
l))=2:z=4*bey(i)-3:s=8*bex(i)-2:GOSUB 100:PRI 
NT CHR$(145);CHR$(148):NEXT l 
1930 ' 

1940 '»**** Bearbeiten / Löschen ************ 
***** 

1950 ' 

1960 k=4:kl=3:GOSUB 2720 

1970 IF v(4)=3 OR ta=8 THEN GOSUB 2660:PRINT 
lf1$:GOSUB 3000:GOTO 1750 
1980 IF v(4)=1 THEN x=bex(1):y=bey(1):z=4*y-3 
:S=8*x-3:GOSUB 100:PRINT inv$;CHR$(149):s=s+3 
:GOSUB 100:PRINT CHR$(149);nrm$:s=s-4:GOTO 20 
60 

1990 k=5:kl=2:GOSUB 2720 

2000 IF v(5)=2 OR ta=8 THEN 1960 , 

2010 GET 1,sw:PUT l,lev:LSET stu$="":PUT l,sw 
: sw=sw-l: lem=l : lds=l :GOTO 2470 
2020 ' 

2030 '***** Level erstellen ***************** 
***** 

2040 ' 

2050 x=l:y=l:z=l:s=4:GOSUB 100:PRINT cue$ 

2060 afe=fe(x,y) 

2070 ta-ASC(INPUT$(l)) :IF taol AND ta<>6 AND 
ta<>8 AND ta<>13 AND ta<>18 AND ta<>21 AND t 
a<>30 AND ta<>31 AND ta<251 THEN 2070 
2080 IF ta=l THEN x=x-l:IF x=0 THEN x=8 
2090 IF ta=6 THEN x=x+l:IF x=9 THEN x=l 
2100 IF ta=30 THEN y=y+l:IF y=9 THEN y=l 


<70> 

< 66 > 

<43> 

< 10 > 

<17> 
< 21 > 
<13> 
<80> 
<33> 
<72> 
< 13 > 
<29> 

< 86 > 

< 16 > 

<69> 

<18> 

<89> 


< 11 > 

<16> 

< 74 > 


<31 > 


<96> 

< 21 > 


< 19 > 
<4 9> 

< 9> 
< 19 > 

<15> 

< 0 > 
< 39> 

<47> 

<90> 

<90> 
<4 0> 

<78> 

<81> 

<55> 

<17> 

<19> 

<94> 

<60> 


<24> 

<95> 

<55> 

<90> 

<54> 


2110 IF ta=31 THEN y=y-l:IF y=0 THEN y=8 
2120 IF ta=l3 THEN IF d<>2 THEN GOSUB 3020:GO 
TO 2070 

2130 IF ta=18 THEN 2330 
2140 IF ta=8 THEN GOSUB 2660:PRINT lfl$:GOSUB 
3000:GOTO 1750 

2150 IF ta=21 THEN GOSUB 2980:GOTO 2070 
2160 IF ta=251 THEN 2300 

2170 IF ta=252 THEN y=y-2:IF y<l THEN y=8 
2180 IF ta=253 THEN y=y+2:IF y>8 THEN y=l 
2190 IF ta=254 THEN x=x-2:IF X<1 THEN x=8 
2200 IF ta=255 THEN X=X+2:IF X>8 THEN x=l 
2210 GOSUB 100 
2220IF ) afe=0 THEN PRINT ". ";CHR$(146);CHR$( 

2230 7 IF afe>0 THEN s=s+l:GOSUB 100:PRINT inv$ 
/• " :s=s+3: GOSUB 100: PRINT " ";nrm$:s=s-4 

2240 IF ta=13 THEN 2390 
2250 Z=4*y-3:s=8*x-4 .-GOSUB 100 
2260 IF fe(x,y>=0 THEN PRINT cue$ 

? 27 ° £®(X,y)>0 THEN s=s+l .-GOSUB 100: PRINT 

inv$;CHR$(149):s=s+3:GOSUB 100:PRINT CHR$(149 
);nrmS:s=s-4 
2280 GOTO 2060 
2290 ' 

»^°^ Z ^ 4 ^ y 7 4:s T 8 * x ; 4 : GOSUB 100 : IF fe(x,y)>0 T 
fe( ? ,Y5 =0 : PRINT SPC(6):z=z+ 
100 • PRINT cueS : z=z+l :GOSUB 100:PRINT 
SPC(6):z=z-l:GOTO 2060 

^^r(, y)= i :PRI 5? T inv$;steS(i):z=z + i:GOSUB 
100:PRINT ve$;CHR$(149);". ";CHR$(149);ve$:z 
incn :G0SI,B 100: PRINT ste$( 3) ;nrm$ :z=z-l :GOTO 

2320 

2330 IF fe(x,y)=2 THEN fe(x.y)=l:d=d-l:s=s+2■ 
GOSUB 100:PRINT inv$;". ";nrms:s=s-2:GO r 

2 2070 IF fe(x ' y)=0 0R d=2 THEN GOSUB 3020:GOTO 

+ 1 :s=s + 2 :GOSUB 100 : PRINT CH 
R$(145);CHR$(148):s=s-2:GOTO 2070 

2370 '***** Level abspeichern *************** 
***** r 

2380 ' 

2390 k=3:kl=3:GOSUB 2720 

H v ( 3 ) =3 0R ta=8 THEN GOSUB 2660:PRINT 
lf1$:GOSUB 3000:GOTO 1750 
24.10 IF V( 3) = 2 THEN 2250 

' :2US$= "" :F0R y =1 T0 8:by=0:FOR a 
=0 TO 7:b=2 A a:x=a+l 
2430 IF fe(x,yi>0 THEN by=by+b 
2 |^j IF fe ( x /Y)=2 THEN zus$=zus$ + DEC$ (10*x+y, 

y NEXT E y T 9 : n 5^ S=nstu$+RIGHT$ ( "0"+HEX$ (by) , 2 

2460 LSET stu$=nstu$+zus$:IF V(2)=2 THEN PUT 
1 t lev ELSE sw=sw+l:PUT l,sw:lds=sw 
2470 CLOSE l:GOSUB 2600:GOSUB 2660:PRINT lflS 
:GOSUB 3000:GOTO 1750 Ari;> 

2480 ' 

2490 '***** Unterroutinen ******************* 
***** 

2500 

2510 z=2:s=9:GOSUB 100:PRINT STRINGS(8,138" 
BOUNCE. -. HIGH SCORE STRINGSf 
8,138) :z=3:GOSUB 100:PRINT inv$; und$ JsPcf 51),- 
nun$ f nrm$ 

un^? 1 ?7tÄ££? UB J 00:PRINT /‘STRINGS (22,138 )C 
) / ro$ 

2530 z=5:GOSUB 100:PRINT ve$;» Name des Spiel 
Sek $; ";5e$ re " ;Ve$; " LeV Bon 

2540 Z=6:GOSUB'100:PRINT CHR$(135)STRING$(22 
138)CHR$(1 4 3)STR]:NGS (7,138) CHR$ (14 3)STRINGS ( 5 

6^138)CHRS(14lf rRINGS<5,138)CHR$(143)STRING ^ ( 
2550 FOR Z=7 TO 27 STEP 2:GOSUB 100:PRINT veS 

| F NKXT ) z e$SPC(7 ^ Ve$SPC(5)Ve$SPC(5)Ve$SPC(6)Ve 

Hof?i?o?R-;. G0SU ? 100:PRINT 1<J$ STRINGS (22,138)C 

k ’ . . 38) 

38 


1°0: PRINT lu$STRINGS (22,138 
^ni}?o2^ RINGS P' 138)CHR$ ( 139 ) STRIN G$(5,13l 
)^ru$ 1 ST RING $ ( 5, i38 ) CH R $ (]. 39) STRINGS ( 6 , 1; 

<80> 2570 FOR i=10 TO 1 STEP -1:z=2*i+6:GOSUB 100: 
PRINT ve$; DEC$(i . ";na$(i) ; " ";ve$;D 
EC S(P u (i), "#####1"),-ve$;DEC$(le(i) ,"####" 

i^i#I#^» $ ^^* #r); " "'• ve $'- BEC $(pt( 


;(bc.. 

";ve$:NEXT i 


12 ' 91/1 ’92 CPC 105 




































PCW 



<14> 

< 22 > 

<69> 

< 0 > 
< 5> 


<56> 


< 9> 
<91> 

< 66 > 

< 17 > 

<7 4> 

<44> 

<85> 

< 2 > 
<39> 
< 21 > 

< 86 > 

<82> 

<69> 

<28> 

<28> 

<73> 

<51> 

<83> 

<38> 


<25> 

< 20 > 

<16> 

< 88 > 


< 22 > 

< 68 > 


<28> 

<65> 


< 3> 
<26> 


< 9> 

< 3> 

< 18 > 
<56> 

< 66 > 

<45> 

<30> 

< 10 > 

<38> 


2580 RETURN 
2590 ' 

2600 OPEN "R",1,"BOUNCE.LEV",20:FIELD 1,20 AS 
stu$:RETURN 
2610 ' 

2620 FOR i=l TO 10:LSET name$=na$(i):LSET pun 
kte$=DEC$(pu(i),"######"):LSET level$=DEC$(le 
(i),"####"):LS ET bonus $=DEC$(bo(i),"####"):LS 
ET dauer$=DEC$(pt(i),"#####"):PUT 2,i:NEXT x: 
CLOSE 2 

2630 OPEN "R",2,"BOUNCE.SCO",35:FIELD 2,16 AS 
nameS,6 AS punkteS,4 AS level$,4 AS bonus$,5 
AS dauer$:RETURN 
2640 ' 

2650 z=6:s=82:GOSUB 100:PRINT USING"######";p 
un:RETURN 

2660 z=7:S=79:GOSUB 100:PRINT USING"(###)... 
sw:RETURN 

2670 7-1: S=84 :GOSUB 100:PRINT USING"####" ; lev 
:RETURN 

2680 z=8:s=84:GOSUB 100:PRINT USING"####";bon 
:RETURN 

2690 z=9:s=85:GOSUB 100:PRINT USING"###";lim: 
RETURN 

2700 z=l0:s=83:GOSUB 100:PRINT USING"#####";p 
ti:RETURN 
2710 ' 

2720 z=19:s=70:GOSUB 100:PRINT lo$;ho$;ro$ 
2730 z=20:GOSUB 100:PRINT ve$;inv$;men$(k,1); 
nrm$;ve$ 

2740 FOR z=21 TO 19+kl:GOSUB 100:PRINT ve$;me 

n$(k,z-19);ve$:NEXT z 

2750 GOSUB 100:PRINT lu$;ho$;ru$ 

2760 v(k)=l:z=20:s=71:GOSUB 3030 
2770 zu$=men$(k,v(k)) 

2780 ta=ASC(INPUT$(l)):IF ta<>8 AND ta<>13 AN 
D ta<>21 AND ta<>30 AND ta<>31 THEN 2780 
2790 IF t.a=30 THEN v(k) =v(k) +1: IF v(k)=kl + l T 
HEN v(k)=l 

2800 IF ta=31 THEN V(k)=v(k)-1:IF v(k)=0 THEN 
v(k)=kl 

2810 IF ta=8 THEN IF k>l AND k<6 THEN PRINT 1 
f 2$:RETURN ELSE GOSUB 30 20-.GOTO 2780 
2820 IF ta=13 THEN IF sw>998 AND k=2 AND v(2) 
=1 OR SW< 1 AND (k=l AND v(l)=l OR k=2 AND v(2 
)=2) THEN GOSUB 3020:GOTO 2780 ELSE PRINT lf2 
$:RETURN 

2830 IF ta=21 THEN GOSUB 2980:GOTO 2780 
2840 GOSUB 100:PRINT zu$:z=v(k)+19:GOSUB 100: 
PRINT inv$;men$(k,v(k));nrra$:GOTO 2770 
2850 ' 

2860 bex(1)=VAL(MID$(stu$,17,1)):bey(1)=VAL(M 
ID$(stu$,18,1)):bex(2)=VAL(MIDS(stuS,19,l)):b 
ey(2)=VAL(MID$(stu$,20,l)):RETURN 
2870 ' 

2880 z=6:s=71:GOSUB 100:PRINT inv$;" Score: " 
;nrm$:FOR i=l TO epl:OUT 248,tw:pun=pun+ep2:0 
UT 248,12:GOSUB 2650:NEXT i:s=71:GOSUB 100:PR 
INT " Score: ":RETURN 
2890 ' 

2900 mel=PEEK(&HFBF7):me2=PEEK(&HFBF8):se=VAL 
(HEX$(mel))*60+VAL(HEX$(me2)):IF se>100 THEN 
se=100 

2910 lim=100-se:GOSUB 2690:pti=ptio+se:GOSUB 
2700 

2920 PRINT lfl$:tz=INT(13*RND)-6:FOR 1=1 TO 5 
:FOR j=l TO 5:z=tz*(i-3)+j+12:s~i*ll-l:GOSUB 
100:PRINT pa$(in(i*5+j-5)):NEXT j,i:GOSUB 303 
0:ta$=INPUT$(1):OUT 245,INT(91*RND):PRINT lfl 
S 

2930 FOR b=l TO 8:FOR a=l TO 8:OUT 246,72-b*8 
-a:IF fe(a,b)>0 THEN OUT 248,tw:s=8*a-4:OUT 2 
48,12:FOR 1=1 TO 3:z=4*b-5+i:GOSUB 100:PRINT 
inv$;ste$(i);nrm$:NEXT i 

2940 NEXT a,b:POKE &HFBF7,mel:POKE &HFBF8,me2 
:OUT 245,91:GOSUB 3030:RETURN 
2950 ' 

2960 s=l2:FOR z=14 TO 16:GOSUB 100:PRINT MID$ 
(bouS,(z-14)*48+l,48):NEXT z:RETURN 
2970 ff=13+3*INT(bw/3):s=(bw MOD 3)*7+70:FOR 
z=ff TO ff+2:GOSUB 100:PRINT MID$(bou$,8*bw+l 
+(z-ff)*48,6);:NEXT z:RETURN 

2980 zl=z:sl=s:SWÄP tw,twl:SWAP so$,sol$:z=ll 
:s=85:GOSUB 100:PRINT so$:z=zl:s=sl:GOSUB 100 
:RETURN 
2990 ' 

3000 FOR a=l TO 8:FOR b=l TO 8:fe(a,b)=0:NEXT 
b a:RETURN 

3010 s=3:FOR Z=1 TO 29 STEP 4:GOSUB 100:PRINT 
eli$:NEXT z:RETURN 


<93> 3020 OUT 248,tw:FOR i=l TO 500:NEXT i:OUT 248 
,12:RETURN 

< 5> 3030 IF INKEYS<>"" THEN 3030 ELSE RETURN 
<97> 3040 ' 

<68> 3050 CLOSE:k=6:kl=4:GOSUB 2720:PRINT clr$;sic 

$; 

<77> 3060 IF v(6)=4 THEN OUT 248,1 

<20> 3070 IF v(6)=3 THEN PRINT esc$;"x";:SYSTEM 

<95> 3080 IF V(6)=2 THEN SYSTEM 

<95> 3090 END 


LISTING >LEVEL<, REMARK = >'<. 

< 36> 100 '**************************************** 

****** 

<26> 110 '*. Dieses Programm enthält. 

< 3> 120 '*... 100 getestete Level für das Spiel.. 

<45> 130 *'*. BOUNCE V 1.4. (C) 12.05.1991 by H. Ge 
yer. * 

<57> 140 '*. Jeweils 5 DATA-Werte ergeben einen Le 
vel. * 

<46> 150 '**************************************** 
****** 

< 6> 160 CLEAR ,,,1,20 

< 5> 170 OPEN "R*,l,"BOUNCE.LEV",20:FIELD 1,20 AS 

stu$ 

<20> 180 FOR i=l TO 100:a$="":FOR j=l TO 5 
<66> 190 READ b$:a$=a$+b$:by=by+ABS(VAL("&H"+b$)) 

< 8> 200 NEXT j:LSET stu$=a$:PUT l,i:NEXT i 

<81> 210 IF by<>70131091 THEN PRINT "Datafehler!" 
<28> 220 END 
<25> 230 ' 

<58> 240 DATA 1A54,1A47,0A45,0A50,2127,50DO,CD56 ,D 
B15 

<28> 250 DATA 1000,2557,4000,D457,Dl14,0F14,3338,4 
2F7 

<11> 260 DATA 4A00,42FE,461A,2146,F002,DF12,4362,0 
BFS 

<67> 270 DATA 7143,40EE,444C,1F46,A4EC,7367,4D55,4 
805 

<66> 280 DATA 2960,A7FA,7334,2227,722A,4A5F,4243,6 
136 

<84> 290 DATA 1410,063C,0250,1600,3464,2075,0B09,3 
E2B 

<51> 300 DATA 0200,6123,A61C,A7F4,247A,0527,8364,1 
E60 

<54> 310 DATA 1CAA,E882,A0AF,2153,80BF,9890,16B8,5 
2D6 

< 9> 320 DATA 8157,6171,2766,241A,7050,7112,145F,5 

4C5 

< 8> 330 DATA 4FA0,70A0,3477,005A,4A74,742E,5400,7 

336 

<78> 340 DATA 08E8,3F40,E95B,086A,2385,0050,4B1D,0 
4C4 

<91> 350 DATA 2EF4,2788,BEA8,5DAA,49BA,C995,2143,0 
074 

<13> 360 DATA 0E24,2E34,2420,7225,FF89,AD89,8BA5,8 
1FF 

<36> 370 DATA 4418,0079,A1C5,A475,042E,1256,283E,0 
8F2 

<75> 380 DATA 0812,1E0A,3237,0716,F85A,0602,5EE8,1 
174 

<36> 390 DATA 0405,041F,5451,E84D,2447,F507,320E,D 
42C 

<98> 400 DATA 80F8,5358,0055,BB51,A20A,7A42,8378,1 
2FB 

<40> 410 DATA 12D3,8A18,CF00,1277,A8DD,09IC,0911,7 
539 

< 3> 420 DATA 7217,0704,1216,3B4A,EB74,1517,AB55,A 

857 

<30> 430 DATA 6AF2,4000,2126,84AF,8174,2527,782F,3 
181 

<24> 440 DATA C8AA,C80F,CI78,E95B,8134,C017,CC99,D 
441 

<15> 450 DATA EF41,4427,0055,2A21,FB21,1331,7257,0 
000 

<56> 460 DATA B02A,D8D6,E800,2467,0040,EC5A,770A,7 
000 

<51> 470 DATA 3346,2A74,6614,2EB4,2E00,5427,0003,0 
057 

< 8> 480 DATA 6816,0A05,3418,0503,050A,2CAA,3400,1 

157 

<34> 490 DATA 0034,18E4,1C5E,0800,4676,0000,A276,B 
E68 

<85> 500 DATA 0028,5425,554E,F52B,11F1,A140,2264,0 
028 
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<38> 

510 

D06 

DATA 

<72> 

520 

B74 

DATA 

A 

<£> 

V 

530 

264 

DATA 

<37> 

540 

856 

DATA 

<29> 

550 

430 

DATA 

<32> 

560 

65A 

DATA 

<23> 

570 

659 

DATA 

<20> 

580 

366 

DATA 

<83> 

590 

6B0 

DATA 

<66> 

600 

050 

DATA 

<36> 

610 

D05 

DATA 

<37> 

620 

43A 

DATA 

<76> 

630 

176 

DATA 

<24> 

640 

80A 

DATA 

<77> 

650 

3AB 

DATA 

<3 3> 

660 

A52 

DATA 

<57> 

670 

B6D 

DATA 

<94> 

680 

145 

DATA 


660A,0C76,182C,2326,7D36,D52A,B902,Ä 
6245,302A,142A,060A,7C2A,4228,00F5,C 
0B2D,0600,3466,28FF,8061,8348,6A68,2 
0A53,1469,7CC9,34AD,3367,E057,9862,A 
C600,3256,5AA7,7194,1BC6,58EC,7 334,D 
9620,D635,5263,6427,0517,6518,F4A8,5 
3375,00DA,5486,6B8D,EOOB,3348,006B,1 
420B,5514,3325,63AA,D718,C668,0A00,1 
281D,6358,16CA,A800,2335,0002,5ABA,4 
572A,4437,5628,572A,1D62,5D03,3347,0 
10EA,107F,90AC,2476,FF40,A073,2914,0 
5618,1435,1CE1,1AC9,32A7,6243,4EE2,4 
AA12,A23C,3373,0755,07F8,194B,0557,2 
6058,35CD,A847,5214,1345,520F,5A68,4 
2A28,5327,A02A,96D0,AF09,340B,7435,4 
E514,OODA,2AA2,7627,9DE3,8EA2,62BE,6 
3383,0E0A,635F,2922,5678,1345,0107,1 
334A,296D,1446,D50A,8C63,AE51,96AB,1 


<31> 

690 

632 

DATA 

<15> 

700 

7A1 

DATA 

<81> 

710 

AC3 

DATA 

<64> 

720 

2A9 

DATA 

<95> 

730 

377 

DATA 

<7 0> 

740 

BA0 

DATA 

<79> 

750 

01A 

DATA 

<17> 

760 

8B5 

DATA 

<85> 

7 70 
639 

DATA 

<35> 

780 

445 

DATA 

<43> 

790 

C66 

DATA 

<18> 

800 

8ED 

DATA 

<25> 

810 

800 

DATA 

<70> 

820 

BEA 

DATA 

A 

o 

V 

830 

386 

DATA 

<9 3> 

840 

61B 

DATA 

<87> 

850 

095 

DATA 

<74> 

860 

DATA 


6AC2,B51A,AFD4,37ED,1345,15EB,9825,C 
D7AA,1128,1895,C9CE,6BC4,2CA4,2465,5 
288F,D801,2DFD,2467,ED49,0A09,DA89,6 
2546,E796,A590,9BEC,8780,3136,3EC4,F 
137B,6000,4477,605A,36C6,30AF,D085,3 
021B,D7A8,32D6,0A68,3336,OOF6,A34A,5 
DEA8,2255,3A2C,16A8,D65A,6C57,4176,0 
07B4,2A8B,55D8,1358,46FA,4C12,0897 , A 
7338,AA1A,9 OAD,3B86,D080,1586,00A5,D 
271A,3400,4426,2833,DB25,DD71,0414,6 
160C,3A56,6C0E,602C,3568,OOAO,B6DA,A 
A8AC,4485,0C28,A6D4,2BF5,0CA8,3448,0 
8B48,D4AD,1530,3216,A095,A57A,946E,B 
1267,D428,BC94,16CA,186A,3428,00D5,2 
BD4A,7E18,3558,0033,2DDB,35D8,6B0D, 1 
0056,2C6A,5218,4AE8,3377,002F,A21D,C 
5400,2377,1404,1AEC,5A94,56C0,3227,D 
7 3AC,4A0C,521A,4528 


Grafiksystem selbst 
gemacht 

Direkte Ansteuerung von Bildschirm, 
Drucker und Plotter 

Beinahe jeder der Leser kam schon mit irgendeinem Grafiksystem in Berüh¬ 
rung. Schwierig und mühselig wird es jedoch, wenn das System ein be¬ 
stimmtes Ausgabegerät, wie zum Beispiel einen Plotter, nicht unterstützt: Es 
muß ein Treiber geschrieben und installiert werden. 

Der Beitrag zeigt, daß es oft weniger aufwendig ist, ein eigenes System zu 
implementieren. Vor allem, da man dann mehrere Fliegen mit einer Klappe 
schlagen und eine wichtige und interessante Eigenschaft realisieren kann: 
eine einheitlliche Darstellung auf Monitor, Drucker und Plotter. 


Ein Grafiksystem ist brauchbar, wenn 
es die dem Anwender notwendigen 
Funktionen erfüllt und wenn es seine 
Ausgabegeräte unterstützt. Manche 
fehlenden Grafikfunktionen können oft 
mit Hilfe der vorhandenen Funktionen 
gelöst werden. Schlimmer ist, wenn ein 
Grafiksystem eines unserer Ausgabege¬ 
räte nicht unterstützen kann. Man muß 
dann einen Treiber schreiben und instal¬ 
lieren. und das erweist sich in der Regel. 


wegen Mangel an vielen notwendigen In¬ 
formationen, als schwierig. 

Deshalb habe ich mich entschlossen, 
ein einfaches, möglichst übertragbares 
Grafiksystem zu entwickeln. 

Anforderungen an die 
Grafiksysteme 

Ein Grafiksystem sollte mindestens, 
von der Seile des Anwenders gesehen, 


die grundlegenden Grafikfunktionen 
erfüllen. Das sind meistens: 

• Installation des Treibers eines be¬ 
stimmten Ausgabegerätes; 

• Löschen einer Zeichnung; 

• Zeichnen eines Punktes mit den 
Koordinaten X Y; 

• Testen eines Punktes mit den Koordi¬ 
naten X Y; 

• Verschiebung zu einem Punkt mit 
den Koordinaten X Y; 

• Zeichnen einer Strecke oder einer 
Zackenlinie mit vorgegebenen Parame¬ 
tern; 

• Ausfüllen einer Fläche, die durch 
eine Kontur oder Liste der Koordinaten 
der Ecken eines Vielecks deklariert ist. 
Die oben angegebene Liste kann natür¬ 
lich noch vervollständigt werden. Man 
kann noch Farben zugeben, Musterder 
Linien und Flächen (Ausfüllungen) än¬ 
dern. Man kann neue Primitiven wie 
Bögen, Kreise. Rechtecke oder Texte 
zugeben. Man kann nicht nur zeichnen, 
sondern auch löschen oder bereits ge¬ 
zeichnete Punkte modifizieren. Das al¬ 
les war aber nicht unser Ziel. Beachten 
wir doch, daß, obwohl das Hinzu fügen 
von diesen Funktionen einfach ist (wir 
denken hier, daß jeder Leser dazu fähig 
wäre), sofort gewisse Probleme aul'tau- 
ehen. Nicht alle Ausgabegeräte sind fä¬ 
hig, zum Beispiel die Zeichnungen in 
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Die Speicherverteilung des Monitortreibers 



Nach diesem Prinzip wird die Speicherverteilung des Druckertreibers durchgefiihrt. 


Farbe zu bilden. Unmöglich ist auch 
zum Beispiel das Löschen einer einmal 
gezeichneten Linie mit Hilfe des Plot¬ 
ters. Bei einer genaueren Analyse kann 
man noch mehr ähnliche “Probleme“ 
entdecken. Zusätzliche Schwierigkei¬ 
ten bereiten verschiedene Auflösungen 
und Formate der Zeichnungen und (was 
besonders kläglich ist) verschiedene Pi¬ 
xelproportionen. Die Voraussetzung 
war dagegen das Erhalten von mög¬ 
lichst identischen Zeichnungen bei An¬ 
wendung der Ausgabegeräte verschie¬ 
dener Typen. Unter dieser Vorausset¬ 
zung wurde ein Programmpaket ent¬ 
wickelt (Listing I.). Es realisiert die 
vorher aufgefuhrten Funktionen mit 
Hilfe der Unterprogramme 

GpenDevice, ClcseDevice, Point, Dot, 
Plot, Draw, Line, Fill, Area. 

Man sollte auch Reaktionen des Gra¬ 
fiksystems im Falle der Überschrei¬ 


tung des effektiven Bereiches der 
Zeichnung bestimmen. 

Wir haben in diesem Falle Arbeit in 
den Regimen Abschneiden, Rollen 
oder Unterbrechung des Zeichnens 
(ähnlich wie in der Programmierspra¬ 
che Logo) zugelassen. Korrekt kon¬ 
struierte Prozeduren zum Abschneiden 
und Rollen sollten auch einwandfrei im 
Falle eines verkleinerten Formats des 
Bildes (Fenster) arbeiten. 

Ausgabegeräte und ihre 
Treiber 

Typische Ausgabegeräte für ein Gra¬ 
fiksystem sind die Bildschirme, 
Drucker und etwas seltener Plotter. 
Auf diese Geräte wurde beim Schrei¬ 
ben von Beispieltreibern besonders be¬ 
sonders geachtet. Es wurde angenom¬ 
men, daß jedes der Ausgabegeräte 


ziemlich “unintelligent“ ist. Das be¬ 
deutet, daß im Falle eines Zugriffs auf 
den Bildschirm der Zugriff nur auf den 
Bildspeicher gestattet ist, im Falle des 
Druckers die Möglichkeit der direkten 
Steuerung der Druckernadeln verfüg¬ 
bar ist, und bei dem Plotter das Zeich¬ 
nen einer Linie zwischen zwei Nach¬ 
barpunkten und Verschiebung des 
Plotterköpfes in gezeigter Stellung 
möglich ist. Selbstverständlich bieten 
meistens die grafischen Geräte mehr 
Möglichkeiten an. Bei dem Monitor 
besteht oft die Möglichkeit der Ausnut¬ 
zung von Systemprozeduren, die die 
ausgewählten Grafikfunktionen reali¬ 
sieren. Matrixdrucker bieten häufig 
eine ganze Menge von Grafik funktio¬ 
nell, manchmal besitzen sie auch Plot¬ 
teremulationen (was möglich ist, falls 
der Drucker die Welle in beiden Rich¬ 
tungen drehen kann). Plotter sind in 
der Regel ziemlich intelligente Geräte. 
Sie ermöglichen nämlich außer dem 
Zeichnen von Linien, auch die Ausga¬ 
be von Texten und manchmal auch eine 
Ausfüllung von Vielecken. Die Aus¬ 
nutzung solcher zusätzlicher Möglich¬ 
keiten vereinfacht den Aufbau einiger 
Fragmente des Treibers. 

Unser Treiber soll folgende Funktio¬ 
nen erfüllen: 

• Zeichnen des Punktes mit den Koor¬ 
dinaten X Y; 

• Testen des Punktes mit den Koordi¬ 
naten X Y; 

• Verschiebung zum Punkt mit den 
Koordinaten X Y; 

• Löschen einer Zeichnung. 

Die übrigen grafischen Funktionen, 
solche wie Zeichnen einer Linie oder 
Ausfüllen einer Fläche, sollten schon 
durch entsprechende Prozeduren des 
Grafiksystems realisiert werden. 

Jetzt wären die Möglichkeiten der ein¬ 
zelnen Grafikgeräte an der Reihe. Der 
Monitor des Amstrad PCW besitzt die 
Auflösung 720 x 256. Der Bildspeicher 
befindet sich in der Speicherbank 0, zu 
dem man mit Hilfe der XBIOS-Funk- 
tion Nummer $E9 Zugriff erhalten 
kann. Die Adresse des Bytes, das den 
vorgegebenen Punkt enthält, wird an¬ 
hand der X.Y-Koordinaten und des In¬ 
haltes des sogenannten RAM-Rol- 
lcr-Bereiches, das die Anfangsadres¬ 
sen jeder der 256 Bildschirmlinien 111 
sammelt, berechnet. Diese Berechnung 
wird durch die Funktion Adr ausge¬ 
führt. Die einzelnen Bytes im Bild¬ 
schirmspeicher sind so organisiert, daß 
Entsendung zu ihnen der aufeinander¬ 
folgenden A c hl-By tes-Zeic henmat r i - 
zen eine Textzeile auf dem Bildschirm 
bildet. 
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Der Computerdrucker ist (teilweise) 
mit dem Epson FX kompatibel. Zur 
Bildung der Zeichnung wurde eine hö¬ 
here Bildqualität gewählt, die der Auf¬ 
lösung von 960 Punkten in einer Linie 
entspricht. Ich nahm 720 Linien an, da¬ 
mit ein für den Bildschirm typisches 
Verhältnis der Breite zu der Höhe des 
Bildes von vier zu drei gewährleistet 
wird. Diese Auflösung bestimmt die 
Größe des Bildspeichers von 90 kßyte. 
Das Vorhandensein einer ziemlich gro¬ 
ßen RAM-Disk im Computer führte zu 
der Lösung, in welcher eine enspre- 
chend große Datei mit direktem Zu¬ 
griff den Bildspeicher für den Drucker 
emuliert. Es sollte eine einschlägige 
Struktur dieser Datei angenommen 
werden. Die Datei wurde in Blocks zu 
| je einem kByte geteilt. Jeder Block 
nutzt jedoch nur 960 Bytes aus, was 
acht Linien des Bildes entspricht. Zur 
Beschleunigung der Ausgabe der 
Zeichnung auf den Drucker wurde an¬ 
genommen, daß die aufeinanderfolgen¬ 
den Bytes in der Datei die Information 
bilden, die direkt an den Druckkopf des 
Druckers ausgegeben wird. Es bedeu¬ 
tet, daß alle Bits jedes Bytes der selben 
X-Koordinate entsprechen. Um eine 
höhere Auflösung zu erreichen, ent¬ 
steht jede Zeile der Zeichnung (16 Li¬ 
nien) durch zweimaliges Passieren des 
Druckkoptes. Aus diesem Grunde ent¬ 
halten die Blocks mit geraden Num¬ 
mern die Information über Punkte mit 
ungeraden Y-Koordinaten und umge¬ 
kehrt. Eine solche Lösung beschleunigt 
bedeutend die Ausgabe der Zeichnung. 
Die Umrechnung der X,Y-Koordina¬ 
ten auf die Blocknummer, Adresse im 
Block und Bitnummer erfolgt in der 
Prozedur Calculate. Eine weitere in- 
teressante Lösung ist der Datenaus¬ 
tausch mit der Datei mit Bitkarte. Der 
klassische direkte Zugriff zur Datei 
kann hier nicht angenommen werden, 
weil das Zeichnen von senkrechten Li¬ 
nien laufende Ein- und Ausgaben des 
Dateipuffers verursacht hätte. Man 
entschied sich also für das Modell des 
virtuellen Speichers aus der Program¬ 
miersprache Forth. 

In jedem Augenblick befinden sich im 
Arbeitsspeicher immer zwei Blocks. 
Eine Forderung des Zugriffs auf einen 
bestimmten Block verursacht die Über¬ 
prüfung. ob sich der Block mit der an¬ 
gegebenen Nummer im Arbeitspeicher 
befindet. Falls ja, erfolgt kein Einlesen 
des Blocks von der Disk. Sonst wird 
der geforderte Block von der Disk in 
den Puffer eingelesen. Um das jedoch 
durchführen zu können, muß man vor¬ 
her den Puffer durch Löschen aus dem 


Speicher des am längsten verwendeten 
Blocks frei machen. Wenn dieser Block 
vorher modifiziert wurde, wird er auf 
die Disk geschrieben. Den virtuellen 
Zugriff zum Speicher realisiert die 
Funktion Block. 

Das letzte angewendete Gerät war der 
Plotter Sharp CE. Er kann Linien 
zeichnen und Texte ausgeben. Der von 
mir erstellte Treiber nutzt jedoch nur 
die Möglichkeit des Vorschubs des 
Plotterkoplcs und Verbindung von 
zwei benachbarten Punkten mit einer 
Linie aus. Das Problem bildet beim 
Plotter die Ausfüllung, weil der Plotter 
den Punkt mit vorgegebenen Koordina¬ 
ten nicht testen kann. Die Lösung die¬ 
ses Problems erforderte die Reservie¬ 
rung einer enspreehenden Datei mit 
Bilkarte auch für Plotter. Weil die Auf¬ 
lösung des Plotters in der horizontalen 
Achse 960 Punkte betrug, war die An¬ 
nahme der gleichen Auflösung wie bei 
dem Drucker möglich. Ähnlich ist 
auch die Größe der Datei mit der Bit¬ 
karle, die 90 kByte beträgt. Jeder 
Block sammelt nämlich Informationen 
über den Inhalt von acht aufeinander¬ 
folgenden Bildlinien. Die folgenden 
Bits jedes Bytes entsprechen den näch¬ 
sten Werten der X-Koordinate. Es ver¬ 
einfacht und beschleunigt die Ausfül¬ 
lung, welche der Plotter durch Straffie- 
rung mit horizontalen Linien realisiert. 
Die Umrechnung der X,Y-Koordina¬ 
ten auf die Blocknummer, Adresse im 
Block und Bitnummer erfolgt in der 
Prozedur Calculate. Auch im Falle des 
Plotters wurde der vorher beschriebene 
Mechanismus des virtuellen Zugriffs 
aut die Datei mit der Bitkarte angewen¬ 
det, obwohl in diesem Falle der Nutzen 


Drucker ist. 

Alle drei Treiber wurden als Überlap¬ 
pungsstrukturen (Overlays) implemen¬ 
tiert, weil in jedem Augenblick nur ei¬ 
ner von ihnen ausgenutzt wird. Diese 
Treiber sind in den Listings 2, 3 und 4 
dargestellt. 

Unter Ausnutzung der durch die Trei¬ 
ber angebotenen Möglichkeiten kann 
man weitere Funktionen des Grafiksy¬ 
stems entwickeln. 

Die erste von ihnen ist die Prozedur 
Draw, die eine Strecke zeichnet. Sie 
nutzt den vielmals beschriebenen Algo¬ 
rithmus von Bresenham, deshalb wird 
Sie hier auch nicht genauer angespro¬ 
chen. 

Bemerken Sie bitte nur, daß diese Pro¬ 
zedur sich leicht so modifizieren läßt, 
daß statt einer stetigen eine Linie nach 
vorgegebenem Muster gezeichnet 
wird. Leider werden die horizontalen 
und senkrechten Linien wegen der 
Pixelproportionen unterschiedlich sein 
(besonders auf dem Bildschirm). Eine 
Vervollständigung der Prozedur Draw 
bildet die Prozedur Line , die eine 
Zackenlinie ausgibt. 

Angewendete Algorithmen 

Viel interessanter ist das Problem der 
Ausfüllung von Flächen. Die Aufgabe 
der Ausfüllung von Flächen kann wie 
folgt definiert werden: 

• Bemalung einer Fläche, deren Kon¬ 
tur (nicht unbedingt regulär) vorgege¬ 
ben ist. 

• Bemalung des Inneren eines Viel¬ 
ecks (nicht unbedingt konvex), dessen 
Eckpunktkoordinaten gegeben sind. 

Das vorgestellte Paket enthält die Lö¬ 
sung dieser beiden Aspekte auf eine. 


nicht so augenscheinlich wie beim 



Nur beim Plotter wird ein anderes Prinzip angewandt 
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Die Arbeitsweise unserer Fill-Rouiine 



wie wir meinen, interessante Weise. 
Zuerst sollte jedoch der erste dieser Al¬ 
gorithmen. der durch die Prozedur Fill 
realisiert wird, besprochen werden. 
Dieser Algorithmus setzt das Vorhan¬ 
densein einer geschlossenen Flächen¬ 
kontur im Speicher und Kenntnis der 
Koordinaten eines Punktes, der in ih¬ 
rem Inneren liegt, voraus. Die Koordi¬ 
naten dieses Punktes, der Korn genannt 
wird, werden auf dem Stapel abgespei¬ 
chert. Im nächsten Schritt nimmt man 
die Koordinaten des Kornes vom Sta¬ 
pel. zeichnet an der vorgegebenen Stel¬ 
le einen Punkt, wonach aus diesem 
Punkt Linien, die den Punkt mit der 
Kontur verbinden, nach links und nach 
rechts von diesem Punkt gezeichnet 
werden. Während dieser Tätigkeit 
werden die Koordinaten der Grenz¬ 
punkte der Kontur Xlefi und Xright be¬ 
stimmt. Dann wird die Prozedur Scan 


aufgerufen, die die Linie testet, die 
über und unter der durch Xlefi und 
Xright begrenzten, gezeichneten 
Strecke liegt. Dieses Testen bedeutet 
die Bestimmung neuer Körner, deren 
Koordinaten auf dem Stapel geschrie¬ 
ben werden. Die beschriebenen Tätig¬ 
keiten werden wiederholt, bis der Sta¬ 
pel leer wird. 

Die Schwierigkeit bei der Kodierung 
dieses Algorithmus ist mit der Art der 
Implementierung des Stapels verbun¬ 
den. Am einfachsten kann man ihn in 
einer Art Tabelle realisieren, was je¬ 
doch seine Größe von vornherein be¬ 
grenzt, die Notwendigkeit der lau l en¬ 
den Überprüfung des Wertes des Ta- 
bellenzeigcrs einführt und die Zugriffs¬ 
zeit verlängert. Die Implementierung 
des Stapels durch eine Liste ist auch 
nicht die glücklichste, weil sie mehr 
Speicherplatz erfordert (jedes Listen¬ 


element enthält zusätzlich einen Zeiger) 
und die Zugriffszeit verlängert. Ideal 
wäre wegen der Speicherbelegung und 
Zugriffszeit die Ausnutzung des Ma- 
schinen-Stacks (des Prozessors Z80). 
Das Problem besteht jedoch darin, daß 
der Prozessor Z80 nur einen Stack 
(Stapel) besitzt, dessen Zeiger sich im 
SP-Register (Stack Pointer) befindet, 
und daß dieser Stapel von Turbo-Pas- 
cal für die Aufbewahrung der Rück¬ 
kehradressen und der Parameterüber¬ 
gabe ausgenutzt wird. Aueh dieses 
Problem konnte ich jedoch mit Hilfe 
der Prozedur PushStack und der Funk¬ 
tion PopStack lösen. Die Prozedur 
PushStack lädt seinen Parameter auf 
dem Stapel unter ihrer Rückkehradres¬ 
se, seinen Wert entnimmt die Funktion 
PopStack dagegen vom Stapel aus der 
Stelle unter der Rückkehradresse. Bei 
Benutzung der Prozedur PushStack und 
der Funktion PopStack sollte man etwas 
vorsichtig sein. In der Regel sollten 
alle Operationen auf dem Stapel inner¬ 
halb einer Prozedur durchgeführt wer¬ 
den. Wenn w ir diese Operationen in ei¬ 
ner anderen Prozedur ausnutzen möch¬ 
ten (so wde in der Prozedur Scan), so 
muß diese Prozedur mit der Anweisung: 
Return := PopStack ; 
beginnen und mit der Anweisung: 

PushStack (Heturn) ; 

enden, was ein Vermischen der Adres¬ 
sen und Daten auf dem Stapel verhin¬ 
dert. Man sollte auch in solchen Proze¬ 
duren die Anweisung For , die die Ope¬ 
rationen Push-Stack und PopStack be¬ 
nutzt, nicht anwenden, weil diese 
Anweisung den Maschinenstapel be¬ 
nutzt. 

Im Falle anderer Prozessoren mit einer 
größerer Anzahl von Adreßregistern, 
aus denen jedes als Stapelzeiger ange¬ 
wendet werden kann, vereinfacht sich 
das beschriebene Problem wesentlich. 
Der zweite der Ausfüllalgorithmen, 
der durch die Prozedur Area realisiert 
wird, erfordert die Bestimmung der 
Koordinaten der Eckpunkte des zu be¬ 
malenden Vielecks. Er erfordert kein 
Vorhandensein einer Bildbitkarte, des¬ 
halb wird die Ausfüllung diesen Typs 
durch eingebaute Kommandos bei eini¬ 
gen Plottern realisiert. Dieser Algo¬ 
rithmus überprüft zuerst, ob die Kontur 
geschlossen ist (ob Koordinaten des 
letzten Eckpunkts identisch mit den des 
ersten sind). Falls nicht, so wird die 
Kontur durch Zufügen eines nächsten 
Eckpunktes geschlossen. Dann wird 
die Kontur mit Hilfe der Prozedur Line 
gezeichnet. Im nächsten Schritt be¬ 
stimmt man den minimalen und maxi- 
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Area bestimmt zuerst die Koordinaten der Eckpunkte des auszumalenden Rechtecks 


malen Wert der Y-Koordinate durch 
Durchsuchen der Eckpunktliste. Dies 
führt die Prozedur RangeY aus. Jetzt 
bestimmt man für jede Y-Linie, die 
zum gegebenen Intervall gehört, die X- 
Koordinaten der Schnittpunkte mit al¬ 
len Strecken, die zur Kontur gehören. 
Diese Koordinaten werden durch die 
Funktion Xcross berechnet. Man kann 
beweisen, daß, falls die Kontur ge¬ 
schlossen ist. die Anzahl ihrer Schnitt¬ 
punkte mit der Gerade Y=const gerade 
ist. Um eine solche Kontur zu bemalen, 
muß man also die zuvor bestimmten 
Punkte entsprechend verbinden. Das 
Problem im diesem Falle liegt darin, 
daß die X-Koordinaten der Schnitt¬ 
punkte nicht der Reihe nach bestimmt 
werden. Deshalb müssen die erhalte¬ 
nen Koordinaten vor Beginn der Ope¬ 
ration der Punkteverbindung sortiert 
werden. Weil wir wiederum von vorn¬ 
herein nicht wissen, wieviele Schnitt¬ 
punkte wir erhalten, werden ihre X- 
Koordinaten üblich in einer Listen- 
| Struktur abgespeichert. Um diesen Al- 
| gorithmus zu verbessern, werden nach¬ 
einander bestimmte X-Koordinaten im 
Maschinenstapel abgespeichert, wobei 
der Stapel jedesmal bei Eintragung ei¬ 
ner neuen Zahl sortiert wird. Die Sor¬ 
tierung des Stapels wird in der Proze¬ 
dur SortStack durchgeführt. Um diesen 
Prozeß zu optimieren, wurde ein zwei¬ 
ter Stapel angewendet. Einen Zugriff 
auf ihn gestatten die Prozedur Push- 
Heap und die Funktion PopHeap. Die¬ 
ser Stapel wächst in entgegensetzter 
Richtung zum Vergleich mit dem Ma¬ 
schinenstapel. Die Sortierung wird 
selbst durch Einschiebung realisiert. 
Sie beruht auf Wegnehmen vom Stapel 
aller Koordinaten, die kleiner als die 
eingeschobene Koordinate sind. Diese 
vom Maschinenstapel weggenomme¬ 
nen Koordinaten werden zeitweise auf 
dem zweiten Stapel abgelagert. Dann 
wird die eingeschobene Koordinate auf 
den Maschinenstapel geschrieben und 
alle vorher auf dem zweiten Stapel ab¬ 
gelagerten Koordinaten werden zu¬ 
rückgeschrieben. Diese Lösung er¬ 
möglicht die Ausnutzung des gesamten 
freien Hauptspeichers zum Sammeln 
der X-Koordinaten der Schnittpunkte. 
Nach der Bestimmung und Sortierung 
aller Schnittpunkte verbindet die Pro¬ 
zedur DrawScan durch Strecken die 
Punkte, deren X-Koordinaten auf dem 
Stapel abgespeichert sind, wodurch das 
Vieleck bemalt wird. 

Üblicherweise erscheint am Ende eines 
solchen Artikels eine Beispielprozedur 
oder ein Demonstrationsprogramm. 


Beispiel der Anwendung 

Endgültig wählte ich eine Prozedur, 
die (pseudo-) dreidimensionale Zeich¬ 
nungen der Funktionen von zwei Va¬ 
riablen bildet. Diese Prozedur, genannt 
FnGraph, sucht selbst die Art "des in¬ 
stallierten Ausgabegerätes aus, paßt 
ihm die Auflösung der Zeichnung an 
und skaliert die Zeichnung. Die Para¬ 
meter der Prozedur FnGraph bildet die 
Funktion, deren Zeichnung wir ausge¬ 
ben wollen, und der Bereich, in dem 
die Zeichnung abgebildet werden soll. 
Dieser Bereich ist ein Würfel, der 
durch die Werte der Parameter Xmin, 
Xmax, Ymin. Ymax, Zmin und Zmax 
begrenzt ist. Einige Schwierigkeiten 
macht im Turbo-Pascal die Übergabe 
der Funktion als Parameter (Turbo- 
Pascal läßt keine Parameter zu, die 
Prozeduren sind). Dieses Problem 
wurde bereits in [3] [4J gelöst. Als Pa¬ 
rameter wird zur Prozedur der Werl 
der Adresse der Funktion, die den Pa¬ 
rameter bildet. 

Diese Adresse kann man mit Hilfe der 
Funktion Addr erreichen. Innerhalb 
der Prozedur FnGraph wird der Aufruf 
der den Parameter darstellenden Funk¬ 
tion durch die Funktion CaUFunc reali¬ 
siert. Dies ist eine Ein-Parame- 
ter-Funktion, die durch Inline-Anwei- 
sung realisiert wurde. Ihr Parameter 
bestimmt die Adresse, die man an- 
springen soll. Es bleibt noch das Pro¬ 
blem der Parameterübergabe. Turbo- 
Pascal übergibt die Parameter auf dem 
Stapel, wobei durch ihn jedesmal nach 
Eingang in die Prozedur oder Funktion 
automatisch eine Anweisungssequenz 
generiert wird, die die Parameter vom 
Stapel löscht. Ausnahme bilden alle als 


externe deklarierte (external) Prozedu¬ 
ren, die das selbst machen sollten. Die¬ 
se Tatsache nutzte ich bei Deklaration 
der externen Prozedur PushReal aus. 
Diese ist in Wirklichkeit keine externe 
Prozedur, und ihr Code bildet nur die 
Maschineninstruktion RET (Rückkehr 
aus dem Unterprogramm). Ein Aufruf 
dieser Prozedur verursacht also im 
Endeffekt nur eines, daß nämlich der 
Parameter auf dem Stapel gelassen 
wird. Diese Parameter werden dann 
durch die Funktion ausgenutzt, die 
wiederum Parameter der Prozedur 
FnGraph ist. Ein weiteres Problem, 
das man bei der Konstruktion solcher 
Zeichnungen antrifft, ist das Ver¬ 
decken der durch den Beobachter nicht 
gesehenen Zeichnungsfragmente. Die 
Prozedur FnGraph löst es ganz einfach 
durch das Vergleichen von zwei be¬ 
nachbarten Zeichnungskurven. 
Literatur: 

fl] Andrew R. M. Clarke, David Po- 
wys-Lybbe, The Amstrad CP/M Plus, 
M.M.L. Systems Ltd., London 1986. 
[21 Michael Anton, Im Herzen von 
CP/M Plus - XBIOS zerlegt, Joyce- 
Sonderheft L87. 

[3] Namir Clement Shammas, Turbo- 
Pascal Procedural Parameters, Soft¬ 
ware Tools December 86. 
[41 Bernd Rüffer, Noch ein Turbo-Tip - 
Prozedurale Parameter in Turbo-Pas- 
cal, C'T September 86. 

(Zbigniew Szkaradnik/rs) 


Aus Platzwunden haben wir darauf verzichtet, die Li¬ 
st ings zu diesem Artikel ahzudrucken. Auf der PCW 
Ikitabox finden Sie jedoch eine Umsetzung ,1er im Arti¬ 
kel beschriebenen Software. 
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Bericht 


Und was tut der Rest 
der Welt? 


Nichts Neues auf der Systems 

Wieder einmal war in München High Life angesagt: Die Systems, eine Mes¬ 
se für Computertechnik und Branchenanwendungen, hatte vom 21. bis 26. 
Oktober ihre Pforten geöffnet. Alles, was Rang und Namen hat, traf sich in 
den Messehallen Bayerns liebster und größter Stadt. 




Daß es bei so viel Gerangel gar nicht so 
leicht war, auch etwas für unsere “Klei¬ 
nen“ an Informationen zu ergattern, 
versteht sich von selbst. Zwar fand man 
hier und da bei genauerem Hinsehen 
noch so manches an Interessantem, 
doch es bleibt Fakt: Auf der ganzen Sy¬ 
stems wurde kein einziger CPC ausge¬ 
stellt. Lediglich auf dem AMSTRAD- 
Stand konnte man bei der Firma Wied¬ 
mann, die sich als Nebenaussteller prä¬ 
sentierte, einen PCW vorfinden. 

Daß dieser jedoch bis über beide Ohren 
- oder sagen wir besser bis über den 
Tastaturanschluß — vollbeladen mit 
Zusätzen war, kann sicherlich über die¬ 
se Tatsache hinweg helfen. 

Ansonsten gestaltete sich die Systems 
recht ruhig. Man merkte aber, daß der 
Trend in Sachen Speichermedien im¬ 
mer weiter in Richtung der optischen 
Speicherplatten geht. Dies sollte jedoch 
aufgrund der horrenden Preise für die 
CPC- und PCW-Benutzer nur nebenbei 
erwähnt sein. 

Ralf Schößler 


Geschäftiges Tun am Amstrad-Stand. 
Herr Wiedmann war immer bemüht, 
den Besuchern mit Rat und Tat zur Seite 
zu stehen. Ob es nun um den PCW. den 
AMSTRAD PC mit drei Laufwerken 
oder aber um LocoScript PC ging - bei 
der Firma Wiedmann war man richtig. 
Gerade jedoch für die PCW-Besitzer 
war es sicher mehr als interessant, ein¬ 
mal den PCW zu beschnüffeln. Gerade 
jetzt, wo die neue Version von Loco¬ 
Script auf den Markt gekommen ist. 
konnte man sich so ein Bild von der 
ganzen Sache machen. 

Leider war es Herrn Wiedmann nicht 
möglich, einen der neuen PCWs, die 
auf der Business Computing ’91 in Eng¬ 
land erstmalig der Öffentlichkeit vorge- 
stellt wurden, auf der Münchner Messe 
auszustellen. 

Am Informationspult des AMSTRAD- 
Standes lagen alle Informationen zur 
neuen und zu schon bewährter AM- 
STRAD-Technik aus. Neu zur Systems 
war zum Beispiel “das gemischte Dop¬ 
pel“ des AMSTRAD-Laptop ALT 386 
SX in Verbindung mit dem Canon Bub- 
bleJet l()c. 
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In einem geordneten ... findet sich al¬ 
les, oder so ähnlich könnte man den 
Spruch abwandeln. Erst nach längerem 
Suchen war es den Herren vom Interest- 
Verlag möglich, uns ein Exemplar des 
Sammelbandes “Mehr Erfolg mit 
CPC“ zu präsentieren. 

Trotzdem, oder gerade deshalb geschah 
dies dann jedoch mit der doppelten Be¬ 
geisterung, was bei einem Mammut- 
Werk wie diesem sicherlich nicht ver¬ 
wundern dürfte. So findet man inner¬ 
halb dieses Sammelordners alles über 
die Hard- und Softwareseiten des CPC. 


AMSTRAD wartete diesmal zur Sy¬ 
stems wieder mit einem neuen Stand 
auf Auch an der Größe wurde sichtlich 
gefeilt. Man könnte meinen, daß die 
4er Serie des AMSTRAD einen wah¬ 
ren Geldscgen beschert habe. Verdient 
wäre es auf jeden Fall. 


Minis in Reih und Glied konnte man am 
AMSTRAD-Stand bewundern. Der 
Trend geht immer mehr zu Computern, 
die durch ihren geringen Platzbedarf 
auf dem Schreibtisch auffallen. Mil 
dem AMSTRAD Mini PC 4386SX so¬ 
wie dem 5286 dürfte es gelungen sein, 
hier das minimal Mögliche in die Tat 
umzusetzen. 



■ 
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Für Sie gespielt 

Trivial Pursuit und Scrabble auf dem PCW 

Wer immer noch der Meinung ist, daß es für den PCW keine Spielesoftware 
gibt, sollte sieh ganz schnell eines Besseren belehren lassen. Wir stellen 
Ihnen wieder zwei neue Programme vor, die es sowohl für den CPC als 
auch den PCW gibt. 


Bei beiden Programmen handelt es sich 
um Umsetzungen von ursprünglich als 
Brettspiel entwickelten Spielen. Da 
auch hier mit mehreren Teilnehmern 
gespielt werden kann, stellen diese 
Programme eine Bereicherung für jede 
Spielesammlung dar. Spaß für die gan¬ 
ze Familie. 

Trivial Pursuit 

Grundsätzlich geht es bei Trivial Pur¬ 
suit darum, die vom Computer gestell¬ 
ten Fragen aus den Bereichen Ge¬ 
schichte. Wissenschaft und Natur, Erd¬ 
kunde, Unterhaltung, Sport und Litera¬ 
tur richtig zu beantworten. Auf sechs 
Feldern des Bretts besteht die Möglich¬ 
keit. sich sogenannte Wissensecken der 
sechs Themengebiete zu erwerben. 
Nachdem man alle Wissensecken ge¬ 
sammelt hat, muß man zum Mittel¬ 
punkt des Bretts ziehen, um dort die 
Schlußfrage richtig zu beantworten. 
Die Fragen der einzelnen Themenge¬ 
biete werden von einem kleinen Männ¬ 
chen, das als Quizmaster fungiert, 


gestellt, wobei auch Musikfragen im 
Angebot sind: Der JOYCE fängt tat¬ 
sächlich mit seinen begrenzten Mög¬ 
lichkeiten an, ein Musikstück vorzu¬ 
spielen, zu dem es dann die gestellte 
Frage zu beantworten gilt. Wie auch 
beim Brettspiel, muß die Antwort nicht 
aufgeschrieben oder eingetippt werden. 

Schummeln gilt nicht! 

Die Mitspieler entscheiden, ob die ge¬ 
gebene Antwort in etwa der gesuchten 
entspricht, die vom Quizmaster nach 
einer einstellbaren Zeit (fünf Sekunden 
bis neun Minuten oder unbegrenzt) 
preisgegeben wird. Daß das komplett 
in deutsch gehaltene Spiel von seinen 
Programmierern von Oxford Digital 
Enterprises gut durchdacht wurde, 
zeigt sich auch in der Spielerverwal¬ 
tung. Zunächst einmal können bis zu 
sechs Personen am Spiel teil nehmen. 
Man kann das Spiel natürlich auch al¬ 
leine spielen, wobei meiner Meinung 
nach jedoch der gesellschaftliche Reiz, 
den dieses Spiel nun einmal ausübt. 



Das Tri vial-Pursuit-Menü: Hier können auch währenddes Spiels Einstellungen getätigt werden 


verlorengeht. Wenn man das Spiel mit 
mehreren Personen spielt, ist es mög¬ 
lich. daß ein Spieler ausscheiden oder 
Pause machen kann (besonders wichtig 
für Spieler mit schwachen Nerven, die 
sich erst einmal von der Aufregung des 
Spiels erholen müssen). Anschließend 
kann er selbstverständlich wieder in 
das Geschehen einsteigen, was auch 
für Nachzügler gilt, die, begeistert 
vom Spiel, neu beginnen wollen. 

Um seinem Mitspieler zu zeigen, daß 
man das Wissensgenie überhaupt ist, 
besteht die Möglichkeit, jederzeit eine 
Punktetabelle aufzurufen, in der richti¬ 
ge und falsche Antworten statistisch 
aufgeführt sind. Wenn man alle im 
Speicher befindlichen Fragen schon 
einmal beantwortet hat. kann man 
selbstverständlich neue Fragen nachla¬ 
den, so daß lange Weile durch immer 
gleiche Fragen bestimmt nicht auf¬ 
kommt. Tastatur- oder Joystick-Freaks 
kommen gleichermaßen auf ihre Ko¬ 
sten, da das Programm über die Tasta¬ 
tur einstellbar oder über das Joystick- 
Interface von Cascade/Kempston steu¬ 
erbar ist. 

Da die Bildschirmdarstellung mit her¬ 
vorragender Grafik gestaltet wurde, 
fällt auch die letzte Möglichkeit eines 
eventuellen Schwachpunkts weg, so 
daß letztendlich nur die eine Wertung 
in Frage kommt: Das Spiel ist spitze. 
Der Preis von DM 89,50 hat seine volle 
Berechtigung, die Programmierer von 
Oxford Digital Enterprises haben für 
dieses Geld 1 OOprozentige Arbeit ge¬ 
leistet. 

Scrabble 

Wie auch beim original Scrabble, er¬ 
hält man vom Computer sieben Buch¬ 
staben. denen Punkte von eins bis zehn 
zugeordnet sind. 

Nun gilt es, ein Wort aus diesen Buch¬ 
staben zu bilden oder auf dem Brett be¬ 
findliche Wörter sinnvoll durch hinzu¬ 
fügen neuer Buchstaben zu ergänzen, 
jeweils mit dem Ziel, eine möglichst 
hohe Punktzahl zu erreichen. Durch 
Felder wie “Dreifaches“ oder “Dop¬ 
peltes Wort“ und “Dreifacher“ oder 
“Doppelter Buchstaben wert“ können 
die Punkte für das neu gebildete Wort 
noch erhöht werden. Wenn man dann 
von den sieben Buchstaben zum Bei¬ 
spiel fünf gelegt hat, bekommt man 
vom Computer fünf zufällig ausge¬ 
wählte neue Buchstaben hinzu, so daß 
man für die nächste Runde wieder sie¬ 
ben hat. 

Das Spiel ist beendet, wenn alle Spieler 
keine neuen Wörter mehr bilden kön- 
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Trivial Pursuit reizt allein schon durch seine schöne Grafik 


nen. Dies ist zumeist dann der Fall, 
wenn der Vorrat des Computers von 
100 Buchstaben aufgebraucht ist. Ge¬ 
wonnen hat, wer die meisten Punkte 
gelegt hat. 

20000 Wörter 

Die Umsetzung dieses beliebten Brett¬ 
spiels auf den Computer könnte man im 
Prinzip als durchaus gelungen bezeich¬ 
nen. wenn nicht die für den deutschen 
Markt wohl wesentliche Einschrän¬ 
kung existieren würde: Das Spiel ist 
komplett in Englisch gehalten und auch 
die Tastatur wurde auf das englische 
Layout umgeschaltet. Daß die Bild¬ 
schirmausgaben englisch sind, läßt 
sich durchaus noch verschmerzen. 
Schwierig wird es jedoch spätestens in 
dem Moment, wenn man gegen den 
Computer antritt. Dieser hat nämlich 
einen umfangreichen Wortschatz von 
zirka 20000 ausgewählten Wörtern, 
die aber eben alle aus dem englischen 
Sprachgebrauch stammen. Der deut¬ 
sche Spieler, der gegen den Computer 
antritt, hat es vermutlich sehr schwer, 
da sein englischer Wortschatz, wenn 
überhaupt, nur zirka 1500 bis 2000 
Wörter umfaßt. Dies ist definitiv zu 
wenig, um damit gewinnen zu können. 
Die Hilfsfunktion des Computers, fin¬ 
den Spieler ein passendes Wort zu fin¬ 
den, gewinnt damit entscheidend an 
Bedeutung. 

Beim Spiel Mensch gegen Mensch (bis 
zu vier Spielern) kann man natürlich in 
einer beliebigen Sprache spielen. Wör¬ 


ter, die dem Computer unbekannt sind, 
lassen sich nämlich zum vorhandenen 
Wörterbuch ergänzen (optional). Bei 
der Umsetzung des Originals tat sich 
noch ein weiteres Problem auf: Darf 
der Mitspieler die eigenen Buchstaben 
sehen oder nicht? Dazu gibt es zwei 
Lösungen. 

Mitspieler - In die Ecke 

A) : Der Mitspieler darf diese, wie auch 
beim Original, nicht sehen. Praktisch 
erscheint auf dem Bildschirm also in 


diesem Fall nur das Spielbrett mit den 
bis jetzt gelegten Wörtern und die eige¬ 
nen sieben Buchstaben. Der Mitspieler 
muß während dieser Zeit pausieren, so 
daß er aul den Bildschirm keinen Ein¬ 
blick hat. Aul die Dauer erscheint mir 
diese Methode sehr unbequem. Vorzu¬ 
ziehen ist daher die Lösung 
B): Sämtliche Buchstaben der Mitspie¬ 
ler werden aul dem Bildschirm gleich¬ 
zeitig preisgegeben. Die spielfreien 
Mitstreiter können in ihrer freien Zeit 
dann schon nach neuen Buchstaben¬ 
kombinationen suchen, so daß das 
Spiel aul diese Weise sicherlich nicht 
so langweilig wird, da niemand in einer 
Ecke des Zimmers auf seinen Einsatz 
warten muß. Jeder ist also während der 
ganzen Spielzeit direkt am Geschehen 
beteiligt. 

Zu guter Letzt 

Die Schlußbetrachtung: Für den engli¬ 
schen Markt ist Computer-Scrabble 
ohne Zweifel ein sinnvoller Zeitver¬ 
treib. Für den deutschen Markt ist es 
jedoch, trotz seiner guten grafischen 
Bildschirmführung, wegen des fehlen¬ 
den deutschen Wörterbuchs und der 
oben genannten Einschränkungen nur 
schlecht zu gebrauchen. 

Bernhard Graßhoff/rs 


Die im Text angesprochenen Pro¬ 
gramme können Sie bei der Firma 
EDV-Obermeier, Bünder Straße 20, 
4972 Löhne, zu den genannten Prei¬ 
sen beziehen. 



1 2’91/1 '92 CPC 115 

























































PCW 



LocoScript die 2.3te 

Noch mehr Leistung für weniger Geld 

LocoScript, das bei jedem PCW im Lieferumfang enthalten ist, wartet nun 
mit einer neuen Version auf. Zusätzlich gibt es ein neues Zubehörpaket, das 
für die Benutzung von Zweitdruckern mehr als interessant ist. 


Wer sich einen PCW anschafft, wird si¬ 
cherlich als erstes über die Textverar¬ 
beitung LocoScript stolpern. Da das 
Programm bei der achten Serie nur in 
der Version 1.41 ausgelieferl wird, wird 
sicherlich bald der Gedanke nach einer 
neuen Textverarbeitung laut werden. 
Doch warum in die Ferne Sehweiten? Lo¬ 
coScript gibt es in einer wesentlich bes¬ 
seren und leistungsfähigeren Version. 

Was gibts Neues? 

Gleich nach dem Start der Installations¬ 
software wird es jedem geübten Loco- 
Script-Updateler auffallen. Ja, die In¬ 
stallationsanweisungen auf dem Bild¬ 
schirm sind nun endlich deutsch. Es 
wird also kein Wörterbuch mehr benö¬ 
tigt. um das Programm zu installieren. 
Wer bisher eher unerfahren ist, sollte 
sich auch die ebenfalls in Deutsch ge¬ 
haltene Installationsanleitung zu Ge- 
müte führen und dort so einiges an Tips 
und Kniffen entnehmen ... 

Derjenige, der LocoScript in Verbin¬ 
dung mit der Rechtschreibprüfung Lo- 


eoSpell betreibt, wird sicherlich die 
neue Möglichkheit dankbar annehmen, 
die Wörter eines Benutzerwörterbuches 
mit der Funktion Fl-Text einfiigen in 
eine geöffnete Textdatei zu übertragen. 
Ist dies geschehen, können alle Wörter 
noch einmal überprüft und gegebenen¬ 
falls gelöscht werden. 

Auch bei LocoMail hat sich einiges ge¬ 
tan. So kann mit $= der Index l'estge- 
legl werden, nach welchem dann die 
eingelesenen Daten sortiert werden. 
Als Index kann entweder ein in LocoFi- 
le erstellter Index gelten, oder aber ein 
Feldname. 

Langsam wirds knapp 

Wie schon bei der Vorgängerversion 
existiert in der Druckerdatei MA- 
TRIX.PRI kein Hauptzeichensatz 
mehr, was die Größe dieser Datei we¬ 
sentlich schrumpfen läßt. Sehr vorteil¬ 
haft, wo doch ein voll ausgerüstetes Lo¬ 
coScript mit allen Zusatzprogrammen 
nur noch ein paar kByte an freiem Dis¬ 
kettenspeicher übrig läßt. Bei einem 


vorhandenen zweiten Laufwerk können 
dann die einzelnen Schriftdateien (MA¬ 
TRIX. #??) auf eine Diskette für dieses 
Laufwerk kopiert werden. 

Der noch verbleibende Speicherplatz 
auf der Startdiskette wird jedoch noch 
weiter schrumpfen, wenn an dem PCW 
noch ein Zweitdrucker angeschlossen 
ist. Dann muß nämlich noch die sieben 
kByte große Datei INSTALL. DRV auf 
die Startdiskette. Schrift- und .PRI-Da- 
teien für den externen Drucker können 
dann jedoch auch auf die zweite Disket¬ 
te ausgelagert werden. 

Im großen und ganzen kann man also 
davon ausgehen, daß LocoScript mit 
der größten Wahrscheinlichkeit ab der 
nächsten Version voll ausgerüstet mit 
dem Mail-, Spell-, und File-Programm 
nicht mehr auf eine einzige Startdisket¬ 
te (A + B-Seite) paßt. Auch wird der 
Speicher im Laufwerk M: langsam 
knapp, wobei es hierfür jedoch schon 
Alternativlösungen wie diverse Auf- 
rüstsätze gibt. 

Printer Support 

Wie schon gesagt, wurde die Drucker- 
verwaltung bei LocoScript umgestrickt. 
Ebenso auch das Konzept bei der Ver¬ 
marktung der Zusatzsoftware, die teil¬ 
weise zum Arbeiten mit LocoScript 
und diversen Zweitdruckern nötig ist. 
Für runde 130 DM kann noch das soge¬ 
nannte Printer Support Pack gekauft 
werden. Es ermöglicht, aus einer Liste 
von über 400 Druckern seinen heraus¬ 
zusuchen und anhand der Installations- 
hinweise in LocoScript zu integrieren. 
Weiterhin interessant für Benutzer ei¬ 
nes PCW 9512 sind Treiberdateien für 
die unterschiedlichsten Typenräder, die 
es bisher für den PCW eigenen Drucker 
gibt. Für den Fall, daß cs für ein spe¬ 
zielles Typenrad noch keinen Treiber 
gibt, sind neben zwei Programmen 
noch Tips zum Erstellen von eigenen 
Treibern gegeben. 

Ganz nebenbei ist im Paket für alle Lo¬ 
coScript 2.xx-Besitzer noch ein Update 
auf die neueste Version vorhanden und 
dies für die Aehter-als auch für die 
Neunerserie. 

Wer auf seinem externen Drucker gerne 
eigene Zeichensätze verwirklichen 
möchte, kann dies auch ohne Probleme 
tun. Hierzu gibt es das Programm LO- 
COCHAR. 

Das Printer Support Pack beinhaltet 
also all die Funktionen, die zuvor in 
den Zusatzpaketen “Printer Character 
Sets Disc“, “Printer Driver Disc“ und 
“24 Pin Printer Drivers Disc“ enthalten 
waren. rs 
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Noten lernen und Tonleitern nachvollziehen: ein Vergnügen mit dem 
"Musik-Tutor" 


»CPC International« 2/3'92 
erhalten Sie nur noch im 

Bahnhofsbuchhandel oder 
im Abonnement ab: 






CPC 


Eine Art “programmierten Musikleh¬ 
rer“ präsentieren wir Ihnen im näch¬ 
sten Heft. Möchten Sie lernen, Noten 
zu schreiben? Ist Ihnen die Klavierta¬ 
statur bislang ein Buch mit sieben Sie¬ 
geln? Oder wollen Sic vielleicht trai¬ 
nieren, beim Singen zuverlässig den 
richtigen Ton zu treffen? Der “Musik- 
Tutor“ ist ein didaktisch gestaltetes 
Programm für den CPC. das Ihnen zu 
einem schnelleren Lernerfolg verhilft. 

- “Datenfernübertragung“ ist zwar 
heute kein Zauberwort mehr, das ver¬ 
schwörerische Hacker-Atmosphäre 
und geheimnisvolle Datennetz-Grusel- 
gefühlc ä la “Big Brother“ erzeugen 
könnte. Dennoch ist der Austausch von 
Daten über die “Strippe“ im Zeitalter 
der Mailbox-Verbundnetze aktueller 
denn je. Daß auch CPC- und PCW-Be- 
nutzer nicht außen vor bleiben müssen, 
zeigen wir mit einer Arlikelreihe, die 
ein erfahrener “Datenreisender“ für 
uns schreibt. Wetten, daß auch Ihr 
Computer voll DFÜ-tauglich ist? 

- Das Thema “Hardware“ steht laut 
Umfrage bei unseren Lesern ganz hoch 


im Kurs. “Also gut“, haben wir uns ge¬ 
dacht und einen Elektronik-Fachmann 
auf unsere geliebten Amstrad-Geräte 
losgelassen. Beim Auseinandernehmen 
der Peripherie ist dann so manche 
wichtige Beobachtung und so mancher 
nützliche Tip abgefallen. Lassen Sie 
sich überraschen! 


PCW 


— Mit “Micro Design 3“ kommt die 
taufrische neue Version eines außerge¬ 
wöhnlichen grafischen Gestaltungs¬ 
programms auf den PCW. Funktionen, 
die die Grenze zum Desktop Publishing 
überschreiten, zeigen, was auch auf 
diesen Rechnern machbar ist. 


Aktionen 


— Treuen Lesern dürfte aufgefallen 
sein, daß die Rubrik “Personality“ in 
dieser Ausgabe Pause hatte. Im näch¬ 
sten Heft gibt cs aber wieder einen Be¬ 
richt über interessante Leute aus der 
8-Bit-Szene. 

— ln Ausgabe 8/9’91 haben wir unsere 
Leser zu einigen Themen befragt. Die 
wichtigsten Ergebnisse lesen Sie im 
kommenden Heft. Dort erfahren Sie 
dann auch, wer die Preise im Gesamt¬ 
wert von ca. 1800.- DM gewonnen hat. 

— Der große Grafikwettbewerb ist 
beendet. Die schönsten Monochrom- 
Grafiken unserer Leser sehen Sie eben¬ 
falls in Heft 2/3’92. 


— Daß der Joyce/PCW kein einsames 
Inselchen für versponnene Text-Erc- 
miten ist, beweist einmal mehr die 
“APL/Z“-Implementation für diesen 
8-Bit-Computer von Amstrad: eine 
klassische Programmiersprache aus 
dem Großrechnerbereich, die für an¬ 
spruchsvolle arithmetische Aufgaben 
wie beispielsweise Vektorberechnung 
wie geschaffen ist. 


— Hübsche große Schriften unter Lo- 
coScript hat sich mancher PCW-ßcnut- 
zer schon lange gewünscht. Ein neues 
Software-Produkt aus England ist nun 
angetreten, diesen Wunsch zu erfüllen. 
“Endlich weg von den Standard¬ 
schriftarten“ — wir sagen Ihnen, ob 
diese Hoffnung gerechtfertigt ist. 


Com Zu Elektronik - Michael Kürbis..71 

Crusader Software.85 
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DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


Alles in Ordnung? 

Sollten Sie Vorhaben eine Dateiverwaltung zu schrei¬ 
ben oder zu verbessern? Benutzen Sie doch einfach 
einen der im Quelltext vorhandenen Sortieralgorithmen! 

Grafiksystem selbstgemacht 

Die aus Platzgründen nicht im Heft abgedruckten Pro¬ 
gramme zur Steuerung von Bildschirm, Drucker und 
Plotter bieten Ihnen die Möglichkeit, eine eigene Grafik¬ 
verwaltung unter Turbo-Pascal einzurichten. 

Inline für Z80 

Dieses Pascal-Programm gibt Ihnen Auskunft überden 
aktuellen Inhalt der Register des PCW. 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 


24.- DM 




Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 


Inland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
4.- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
6.- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Bounce 

Für alle Spielefreunde können wir das Programm 
Bounce mit über 100 Leveln anbieten. 

Im Herzen des Joyce 

Alle Beispielprogramme zum Artikel können Sie zum 
einen im Quelltext und ebenfalls startfähig compiliert 
wiederfinden. 

Ein Hauch von Lexus 

Zum dritten Mal können wir Ihnen unser Lexikon¬ 
programm mit wesentlich verbesserten Funktionen auf 
der DATABOX anbieten. Zur Demonstration finden Sie 
ebenfalls eine Datendatei, die ein fruchtiges Geheimnis 
in sich birgt. 

Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bei Lieferungen ins Ausland ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 


















Inhalt: 

für den privaten Haushalt: 

- Kontenverwaltung 

- Haushaltsbilanzen 

-Orakel: Hochrechnung effektiver 
Verbraucherkosten 

- Lohnsteuerberechnung 

- KFZ-Kosten 

- Belegverwaltung 

- Bankformulare 

- Wertpapierverwaltung 

- Komfortable Währungsumrechnung 

- Tilgung 

- Komplette Mini-Tabellenkalkulation 

für kleinere Business-Anwendungen: 

- Rechnungsschreibung 

- Pecunia 

- Bestellung und Bestand 

- Superplan 


Der Finanz-Fachmann 


Ein CPC-Mega-Sampler, voll mit praktischen 
Anwenderprogrammen rund ums liebe Geld 







Lernen mit Spaß 


Sicherlich liegt es Ihnen auch am Herzen, daß die Sprößlinge eifrig und 
effektiv lernen und nicht nur stur büffeln. ///m>9 

Der Pädagoge Berthold Freier hat mit den Programmdisketten 
"Lernen mit Spaß" 1 und g ern Lerninstrument geschaffen, das in dieser 
Art einmalig ist. Auf den Disketten befinden sich zahlreiche Spiel¬ 
programme. die Ihren Kindern spielerisch das Verständnis für Zahlen, 
Text und Farben vermitteln. Auch das Allgemeinwissen wird aus¬ 
reichend gefördert. 

Für Kinder von 4 bis 12 Jahren wird durch "Lernen mit Spaß" 1 und 2 
der CPC-Computer zum lehrreichen Freund. 

Machen Sie Ihren Kindern mit Lernen mit Spaß' : eine Freude. 


Lernen mit Spaß 1 


DM 24,95* 


Lernen m it Spaß 2 DM 24,95 


Joyce-Highlights: 

Software-Perlen für Ihren Joyce/PCW 


JOYCE-Highlights I: “Anwender” 

Viele nützliche Arbeitserleichterungen 

Spooler: Druckerspooler (256 und 512 KByte) 

• CAT: zeigt Disketteninhalt sortiert, auch versteckte 
Dateien • Loco2Pro: Konvertierung von LocoScript 
nach Prowort File • Rescue: Retten gelöschter 
Daten • Akte: Etikettenprogramm * Kalender: 
Feiertage, persönliche Daten • Drucken List V2.1: 
Listingdrucken und Kommentare • Funktionstasten: 
zeigt die Belegung auf allen fünf Ebenen • Für 
immer und ewig: Komprimieren und Entpacken von 
Dateien • Vario: Hardcopy auf (fast) allen Druckern 

• JOYCE-Tools: Benutzeroberfläche für 
Dateibearbeitung 


nur DM 29,- 


JO YCE-Highlights II: “Spiele” 

Für jeden etwas dabei. 14 ausgesuchte Spiele 
als Programmpaket - vom Kinderspiel über 
Unterhaltung bis zum kniffligen Denkspiel 


Gobang 

Pingo 

Backgammon 

Mensch, ärgere dich nicht 

Lokomotive 

Rubik's Clock 

Industriemanager 


- Jackpot 

- Poker 

- Fruit 

- Master M ind 

- Ölmanager 

- Verbindungen 

- Q-Bert 

nur DM 29,- 


räbhänciig von der Änza'ilder besi«'i|en Progräm me 'berechnen wir iür das Inland 4, DM bzw. lür das Ausland 6, DM Porto und Verpackung. Bill« benulzen Siedle Bestellkarle. 
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